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PREFACE 


This Pascal Reference Manual describes the Pascal Pro- 
gramming language as implemented by Silicon Valley 
Software, Inc. Throughout this manual, SVS Pascal is to 
mean that version of Pascal as implemented by Silicon Val- 
ley Software, Inc. 


SVS Pascal implements the Pascal language as defined in 
the proposed ISO Standard that appeared in Pascal News, 
Number 20, December 1980. Appendix C - Relationships to 
ISO Pascal describes areas where SVS Pascal deviates from 
the ISO standard. | 


In common with many Pascal implementations, SVS Pascal 
has extensions. These mainly derive from features imple- 
mented in the UCSD Pascal System. Primarily, those 
extensions revolve around facilities for compiling code 
modules separately and string handling. The other major 
areas of extension are concerned with input and output 
facilities, single and double precision floating point, and 
with standard procedures and functions. Differences from 
UCSD Pascal are noted in Appendiz D- pee e to 
UCSD Pascal. 


SVS Pascal is available on host computers based on the 
Motorola 68000 processor family and on hosts based on the 
National Semiconductor Series 32000 family of processors. 
SVS Pascal operates under many operating systems, the 
range of which spans a wide spectrum of capabilities and 
application domains. Since internal data representations, 
addressing, and calling conventions differ between the 
Motorola 68000 and the National Series 32000, and since 
the range of operating systems is so great, it is impossible 
to achieve perfect compatibility among the various imple- 
mentations of SVS Pascal, although every attempt has been 
made to be as compatible as possible so that programs writ- 
ten in SVS Pascal can be ported by simply recompiling on 
the target host. 
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SCOPE OF THIS MANUAL 


This manual is a reference manual for SVS Pascal. It is not 
intended as a user manual or a tutorial. Readers are 
expected to already have some grasp of programming con- 
cepts, terminology, and have at least a minimal understand- 
ing of Pascal. There are approximately 50 books on Pascal 
programming in the commercial market. 


~ OVERVIEW OF THIS MANUAL 


The overall layout of this manual loosely follows that of the 
Pascal User Manual and Report by Kathleen Jensen and 
Niklaus Wirth. The phrase Jensen and Wirth is used to 
refer to that book. There is somewhat more detail in this 
reference manual than in Jensen and Wirth. 


In general, the order that topics are presented in is: first 
some narrative introductory material, then formal descrip- 
tions, followed by examples. 


Section 1 - Introduction is an introduction to Pascal terms 
and concepts. It contains an overview of the Pascal 
language. There is a description of the metalanguage that 
this manual uses to describe the Pascal Language. Finally 
there are descriptions of the basic elements of Pascal. 


Section 2 - Defining Data Types introduces the concepts of 
data types and discusses the notations by which data types 
are defined and declared. 


Section 3 - Variables describes the means whereby variables 
are declared and referenced. 


Section 4 - Expressions describes Pascal expressions which 
are used to derive new data values. 


Section 5 - Statements presents Pascal statements and how 
they are used to achieve computing actions. 
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Section 6 - Input —_ Output covers Pascal mput and output 
facilities. 


Section 7 - Program Structure describes Program Structure 
in Pascal, including the ideas of independent compilation 
units. 


Section 8 - Standard Procedures and Functions describes 
Pascal standard procedures and functions, that is, those 
built in facilities of the language that a user program need 
not provide. 


Section 9 - Pascal Compile Time Options describes the 
compile time options available to the programmer, in order 
to exercise control over some of the actions of the Pascal 
compiler and the run time system. 


Appendix A - Messages from the Pascal System is a list of 
diagnostic messages from the Pascal compiler and the run- 
time library. 


Appendix B - Pascal Language Summary provides a sum- 
mary of the Pascal language syntax. 


Appendix C - Relationships to ISO Pascal covers the 
differences between SVS Pascal and ISO standard Pascal. 


Appendix D - Relationships to UCSD Pascal covers the 
differences between SVS Pascal and UCSD Pascal. 


Appendix E - Data Representations covers machine- 
dependent issues such as data representation, data packing 
and parameter passing. 


Appendix F - Operating the SVS. Pascal System describes 
the system independent aspects of operating the system and 
the considerations involved in linking programs written in 
several languages. 


Appendix G - UNIX Specific Information (S-32/S-320) 
describes how to run the Pascal compiler on the UNIX 
operating system on the S-32/S-320. It also covers details 
of specific dependencies and interfacing requirements (if 
any) of the UNIX operating system. 
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Appendix H - UNIX Specific Information (PC AT) | 
describes how to run the Pascal compiler on the UNIX | 
operating system on the PC AT. It also covers details of | 
specific dependencies and interfacing requirements (if any) | 
of the UNIX operating system. | 


viii 5/23/86 


TABLE OF CONTENTS 


Introduction | | 
Overview of the Pascal Language................. weniidess 1-2 
Wie talan Stace oscceacssseeeixhvccseteiincctateis acca eaiestoess 1-8 
Elementary Lexical Constructs .............ccssecccesseeees . 1-10 
PVA DOU dc ssi dc ste len eneavemee ie cos veteeuce tusueeseessaussteeet 1-10 
Pascal IG@ntiliers wis ecmiisreGoweiioieinienian 1-11 | 
INU DOTS desccctincioicuitinsscous tebeccuedadeSiveeatoocs ie uaraces (1-12 
Pascal Strings........ deuedeba usa ater ualeeasatvoiesneawonneees 1-13 
ASCH TAC lS isecscie, ceccececcacsesvessetetsmedut edecceeee mates 1-15 
BRASS V1 01S ess5dssorats pecceesedaitaceneeresansstaaneswsecs 1-15 
Conventions for Spaces.........scccsessesseeees eiveese, “1-18 
COMMENtS .......ccccesessseceee edu tescaactess eset iiatieselses: 1-18 
Defining Data Types : | 
Defining Constants...........sccccssccsseccnes bese Seseudectcasesee: 2-1 
StANGaIG LV DES iii ntiehs een ee ees rere 2-3 
Defining Data Types................. eoeueusabeseetimoabuweaseee ee 2-5 
Simple Types...............0+ Bsuosiaesuaiaueousiscadsueimeesccacuees 2-5 
SC alae Vy pee ooucoratseissayesaiadecaeiecesecateaseeaees ucenacies 2-5 
Subrange Types ...........cccssscceeees dusenceceruk. Y2e6 
Structured FYPES sisinssessseoececeesedecusveexseevecdoccnceaceosvets 2-7 
PLEA - LV DCS iwatiiexccsscciise acdsceceearinie iene. 2AS 
SLIDE EY DOS seme ensciveiiass cosece Seziwotees eoteuaatdenioretcons 2-10 
Record Types...........0. FORE TER a licotess aweaae 2-11 
Cb. VIS cites rentcosteliedoetactens testes ceegvecemteia eases . 2-13 
SH ULC “LVDS iecGs5c160-G ee ook ucateceestaeeeees deseseaieeatevew.. ~2s14 
WOLD COE. “PY DCS boca hel eale an ceeete tic canoe anes pecuecetene . 2-15 
Type Identity and Assignment Compatibility betes 2-17 
Ten tical Types six ccorssesccoussisxceeveseeseerooseetesiess 2-17 
Assignment Compatible Types. ........... ete teoetea 2-18 
Variables 
DGClaring V APIA DOS evsssscsecsecsvadseaderetbsvesexecceousedcceees 3-1 
Predeclared Variables ...............scccssscsssssrssscerssssceeees 3-2 


Establishing Variables ........... et Seu actioesenesce we evanueuees 3-2. 


5/23/86 ix 


Table of Contents Pascal 


Lifetime Of Variables ccciecccccusecisececccssssdcacadivssvecenses 3-3 
Global: V aba DIGS veiisesecoeiseialaviizsnisis ateeveeiadiiaseest 3-3 
Lifetime of Formal Parameters ................cs0ee0 3-3 
Lifetime of Dynamic Variables...................c000 3-4 

Referencing or Accessing Variables .................006 3-4 
Entire Variables.................0000 bopdsssoeiauananaeaiauebes 3-9 
Component Variables..............cccssccssssssccersseceees 3-9 
Pointer Referenced Variables ................sscceseees 3-9 

Expressions 

Operators in EXpresSiONS ...........ccccssccsesccsssecssecessees 4-1 
Address Evaluation Operator............ccccssscesseees 4-2 
INO DT ODCLaOT estar cieirertinninnes: 4-3 
Multiplying Operators................ceseee Deda ioasaoeeeets 4-3 
Adding Operators ..........cccccsscsssscnscoess puataasheiiaes 4-5 
Sign Operators............ iad aiicanice bene wee ees eas 4-6 
Relational Operators.............ccssscesscsscccsscesscessees 4-7 

Out-of Range Values scecssesecindcsccsecscedvsciecsieasstanveaves 4-11 

Order of Evaluation in Expressions..............0000 a. 4-12 

Compile Time Constant Expressions ..............006. 4-13 
Dead Code Elimination..............ccccsccnsccsscceeeeees 4-13 

Statements 

Statement Labels ...........cccsscossccessceseses be houeooneiees 5-1 

Assignment Statements............ccccscccscccssccesccsscenseess 5-1 

Procedure Reference Statement ...............cscseeceseees d-3 

Structured Statements.......... Sous adiesiiesicheadn ces eet 5-4 
BEGIN... END - Compound Statements........ 5-4 
IF .. THEN .. ELSE Statements ................000008 5-4 
CASE Statemi@n ti sessceciscs asiccisencecsedheliccdessisictan 9-6 
WHILE .. DO Statements... ec eeeceeeees 5-7 
REPEAT .. UNTIL Statements .................008 . o-8 
POR dO Stale CNS vecccccersscccedessesencateucsseceans 9-9 

The WITH Statement...0.........cccscccceescees thease decease: 5-11 

The GOTO Statement... scccersccesssceccsssceesseees 9-12 


x 5/23/86 


Pascal Table of Contents 


- Input and Output 


General File Handling Procedures.................cceeeees 6-1 
The File Buffer Variable ..................sccssccseceenees 6-1 
GET - Get Component from File ................0.. 6-3 
PUT - Append Component to a File............... 6-3 
RESET - Open an Existing File.................cc000 6-4 
REWRITE - Create or Overwrite a File......... . 6-5 

‘Buffering Option on RESET/REWRITE......... 6-5 

Text File Handling Procedures................ccesssceessees 6-6 
READ and READLN Intrinsies...................... 6-6 
WRITE and WRITELN Intrinsies ................... 6-8 
WRITE: Paranretersac.cciiinnkicncsumsccunin 6-9 
SEEK - Random Access to Typed Files.......... 6-14 
CLOSE - Close a File..............cccccsesssesessscseeseese 6-14 
PAGE - Skip to New Page..............ccescsssccssceees 6-16 

- Block Input Output Intrinsics......... cee eee eee ee 6-16 
BLOCKREAD - Read Block frat Pile scsscac 6-16 
BLOCKWRITE - Write Block to File.............. 6-17 

IORESULT - Return Input-Output Result............ 6-18 

Program Structure | | 

Compilation U nits cccivisiieeeiiitimdicenticninienians 7-2 

Declaration and Scope of ESA eee 7-9 

Program FH Gad iC vasveors cciciscteecsisvestavaceeteeds Vaaeeeuae: 7-11 
Predeclared Variables.............cccccccscccssssesee assis 7-11 

Declnradons anu op or sgaer via sane sansa co neieskorer eset ueees 7-13 
Constant Definition ..............ccccssccsecccsccsccsesceeecs 7-13 
PY DE D Ch OR ai saoscsestesncieidis sb esieleeeras tetas 7-13 
Variable Declaration. ...........cccccssscsssccosscsssccessses 7-13 

Procedure and Function Declaration...............ccc00 7-14 
External and Forward Attributes................0000 7-16 
Parameters for Procedures and Functions...... 7-17 


Standard Procedures and Functions 


String Manipulation Facilities ...............ccsscceesseeees 8-1 
LENGTH - Determine String Length Seles shead. 8-2 
COPY - Copy a Substring .............ccccsssscceesseees 8-3 
CONCAT - Concatenate Strings..................000 8-4 
POS - Match a Substring in a String................ 8-4 
SCANEQ and SCANNE - Sean for Character 8-5 
DELETE - Delete Characters from String...... 8-6 
INSERT - Insert Characters into String.......... 8-7 


5/23/86 xi 


Table of Contents Pascal 


Storage Allocation Procedures............ wuwaudsciecsoaucous 8-8 


NEW - Allocate Storage.............ccssssccssssecseseees 8-8 
DISPOSE - Dispose of Allocated Storage ....... 8-10 
MARK - Mark Position of Heap...................06 8-11 
RELEASE - Release Allocated Memory......... 8-11 
MEMAVAIL - Determine Memory................. 8-12 
Arithmetic Functions .............sccccscccssccsssccsssccnsceeeses 8-12 
; ABS - Compute Absolute Value .................c008 8-12 
“SQR - Compute Square of a Numberv............. 8-12 
SIN - Trigonometric Sine.............scccccee Seogeatenns 8-12 
COS - Trigonometric Cosine ...........cccsssccsseseees 8-12 
ARCTAN - Trigonometric Arctangent........... 8-13 
EXP - Compute Exponential of Value............. 8-13 
PWROFTEN - Compute Ten to a Power ....... 8-13 
LN - Natural Logarithm of Value ................... 8-13 
~SQRT - Square Root of Value......... Posted cdaees 8-13 
Predicates or Boolean Attributes ................ccecceeeees 8-14 
ODD - Test Integer for Odd or Even ............. 8-14 
EOLN - Determine if End of Line.................. 8-14 
EOF - Determine if End of File...................... 8-14 
-ASNUEN: TSINF,. TSN UM ose ccessnscancsoccsect vesedeoaredys 8-14 
Value Conversion Functions ............ccccssccosseceeeeenes 8-15 
TRUNC - Truncate to Nearest Integer........... 8-15 
ROUND - Round to Nearest Integer.............. 8-15 
ORD - Convert Type to Integer Value ........... 8-195 
ORD4 - Convert to Long Integer.............. suche 8-16 
CHR - Integer to Character Representation... 8-16 
Other Standard Functions.............ccscccssseesscessceeccees 8-17 
SUCC - Determine Successor of Value .......... 8-17 
PRED - Determine Predecessor of Value....... 8-17 
Miscellaneous Low Level Routines................ccc0e 8-17 
MOVELEFT and MOVERIGHT................00ec08 8-17 
FILLCHAR - Fill a Storage Region ................ 8-19 
SIZEOF - Determine Size of an Element....... 8-20 
POINTER - Convert Integer 0 Pointer.......... 8-20 
CTONtO! PPO CC UTES casei ce vaaeccwssesers te sicaudo esnveanioueresss «8-21 
EXIT - Exit from Procedure.............cccsscceseeeees 8-21 
HALT - Terminate Program with Return Value8-22 
CALL - Call Another Program re Bosiarsuevenite 8-22 

Compile Time Options...................0000 Rustonsicoesteeuesaate 9-1 


xii 5/23/86 


Pascal Table of Contents 


Appendix A: Error Messages 
Compile Time Lexical Errors ........ siesealedeteaeassanacnes 
Compile Time Syntactic Errors............csscccsescceeesees 
Compile Time Semantic ETTofs ................csssscesseees 


Specific Limitations of the Compiler... | 


Input Output Errors.........ceeccsssccescoeees eiieceasee te uaceins 
Code Generation Error6............... ees iseuodeau tee 
IORESULT Error Code’s.............cccsccsscescceccesceecseees 


Appendix B: Pascal Language Summary 
Predefined Identifiers .............ccccccscscsccscsscscsscecesaees 
Pascal Syntax Definitions .............cccccsssccoseccessscceeees 


Appendix C: Relationship to ISO Pascal 


Appendix D: Relationship to UCSD Pascal 
Differences from UCSD Pascal ....................ccceeeeee 


Appenttx E: Data Representations 
SIOPaPEA 1 OCAUON aocirvesandseonesies cevsictiseidoureieeeenass 
Representation of Integers................sescccsscsssceesssees 
Representation of Reals and Doubles................... 


Representation of Extreme Numbets................0666 | 


Hexadecimal Representations................ Siceodeet 
Deviations from the IEEE Standard................ 
Arithmetic Operations...............ccssssecssssccsseeeeees 
Representation of Sets ............ssccccssscscssssees swadeausess 
Representation of Arrays .........cccccssccsssssceeeees eeisitety 
Representation of Pointers ..............ccccssscecessees 
Packing Methods wisccsseierssceccccacccscniedixencetnedeens 
Parameter Passing Mechanism .......ccsecssceececeesecseees 
Register Conventions,..........scccccsssscsssssscsssccsceeeeees 
Limitations on Size of Variables..............ccccseseeseeee 
Compiler Generated Linker Names................cs0000 


Appendix F: Operating the SVS Pascal System 
System Com pone nts.........csccccsscsccsssscccssssccesscccsesees 
Comover Front nd viscsciexiccccysdessahcactseseavestaiton 
Code Generator scucccestenssswiciecichetecceteetierens erent 


5/23/86 


xii 


Table of Contents Pascal 


Command Line Directives and Options................ F-4 

Linking Programs - C and Fortran................cccsssee F-7 
‘Tne: Ni8IN PIOSTAM incendie ace ec. =f 
Dynamic Memory Allocation ....... pessuaetseeeumanaed F-7 
Parameter Conventions............scccccssscccsssssscneees F-8 
Run Time Libraries................cccssccssscsssscnsesceces F-11 
External Naming Conventions ...........cccscccsseses F-12 
Prepended Underscore to External Names..... F-12 


Appendix G: UNIX Specific Information (S-32/S-320) 


Compiling a Simple Program ................cccssccssscseeees G-1 
Terror WeSSaAge P16 Gvassccoactonsalouerveeravecestsasusudavsnceeses G-2 
WI CL poissee ti coseiaansclovertinernseters tied iusee aes G-2 
Wiinker Ips ckiei oder ceri cccrecnaueesd eccoesssen vandeisade G-3 
WIN KOR OU COU IS bisoss snes ei sietecios esdidgneastssoeutines G-3 
Running Ulinker from the Command Line.. G-5 
Running Ulinker Interactively .................ccceeees G-5 
Running Ulinker - Redirected Standard Input G-6 
Unresolved External References Se suet Naattcastes G-6 
hoy esa 60 2) 11 hc een ee pe nen Pree rey erent en err ee G-7 
Errors Detected by Ulinker sitesneas sucsathatategsaees G-7 
Linking to UNIX Assembly Code... eee eeeeee G-8 
ARGC and ARG Y ies Gaciniernsce onsen ewes G-9 
Features not Implemented Under UNIX. re —G-9 
Return Values from Pascal Program...............00000 G-9 


Appendix H: UNIX Specific Information (PC AT) 


Compiling a Simple Program ..............cscccccssscceeseces H-1 
Error Message File ...............ssccsssceres ete ete eevee: H-2 
DUT ROT ecenestd oe Sciecsccctetetiee teas bedestikacoesiec sul H-3 
Jlinker Inputs........ LAcibeeees ale sanssbasesiaetsezidantan sees H-3 
JUDE’ OU GUNS iicossstssc srasesveeeusselicserestiseeauacene. L1=o 
Running Jlinker from the Command Line..... H-5 
Running Jlinker Interactively .................ccecceees H-5 
Unresolved External References ..............ccs000 H-6 
Errors Detected by Ulinker 0.0... ce eeee ~H-6 
Linking to UNIX Assembly Code ................cs0cceeee H-7 
BIG and ARG V. sisiccseicassensendaeacede sand ectessoncyisanes H-8 
Features not Implemented Under UNIX............... H-8 
Return Values from Pascal Programs................000 H-8 


xiv 5/23/86 


SECTION 1 
INTRODUCTION 


Pascal is a modern computer programming language 
designed by Professor Niklaus Wirth (of the Eidgenossiche 
Technische Hocheschule, Zurich, Switzerland) in reaction 
to the perceived disorder of contemporary programming 
languages. Originally intended as an aid to teaching rigorous 
and disciplined computer programming, Pascal has since 
gained international acceptance as a programming language 
for a multiplicity of applications ranging from writing com-. 
pilers (including Pascal compilers) to controlling a grain 
elevator. Pascal is not an acronym for anything. Pascal is 
named after Blaise Pascal, the 17th century panonepnes and 
mathematician. 


Pascal is one of the many derivatives of Algol-60. Algol 
introduced the notion of nested control structures such as 
if..then..else that form the basis of today’s structured pro- 
gramming methods. In addition to the control structures, 
Pascal goes one step further with the notion that data struc- 
tures play at least as important a part in rigorous program- 
ming as do control structures. The absence of an adequate | 
data structuring notation was seen as Algol’s most obvious 
deficiency. 


Pascal’s major contribution to the advance in programming 
technology is the concept of user definable data types. This 
provides powerful facilities for defining new data types and 
data structures in terms of a few basic types. 


This reference manual describes the Pascal language as 
implemented by Silicon Valley Software, Inc. Throughout, 
the term SVS Pascal means the Pascal implementation as 
described in this reference manual. 
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1.1 OVERVIEW OF THE PASCAL LANGUAGE 


A Pascal program consists of a series of declaratons and 
statements. Declarations serve to define program objects. 
Statements determine actions to be performed upon such 
objects. These two things, declarations and statements, 
serve to describe a computer program. 


Definable Pascal objects include variables, funchons, pro- 
cedures, and files. Declaring an instance of an object 
requires an identifier and, usually, a type description. An 
object’s identifier serves to identify that object so that it can 
be referenced later. The type associated with an object 
defines its operational characteristics, and in some cases, 
indicates a referential notation. 


It is important to note that all user supplied objects must be 
fully described, especially as to their type. Pascal is unlike 
many other programming languages in that it does not sup- 
ply any default attributes for undeclared identifiers. 


One of Pascal’s strongest points is the ability for users to 
define new types. Pascal supplies a small number of 
predefined or basic types, such as integer. Pascal then sup- 
plies notations for defining new (user defined) types, both 
in terms of the basic types, and in terms of other user 
defined types. | 


A type can be described directly in a declaration, or, a type 
can be referenced by a type identifier which, in turn, must 
be defined by another explicit type declaration. 


In general, a Pascal object is only subject to operations that 
lie inside of a domain indicated by its type. For example, 
most binary operators are restricted to objects of the same 
type (for instance, characters and integers cannot be added 
directly). These operational constraints are rigid, as are the 
rules for type identity and assignment compatibility. D epar- 
tures from the rules have to be spelled out explicitly in 
terms of conversion functions. 
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The basic data type is the scalar type, often referred to as 
an enumerated type. A scalar definition indicates an ordered 
set of values, where each identifier in the set stands for a 
specific value. 


In addition to the definable scalar types, there are six stan- 
dard basic types: 


e integer 

® longint 

e char( acter) 
e real 

e double 


e Boolean types. 


With the exception of the Boolean type, their values are 
denoted by numbers or quoted characters, instead of by © 
identifiers. : 


A type may also be defined as a subrange of a scalar type by 
indicating the lower and upper bounds of the subrange. 


Structured types are aggregates, defined by describing the 
types of their components, and by indicating a structuring 
method. The structuring methods differ in the way that 
components of a structured variable are selected, and the 
operations in which they can participate. Pascal provides 
five basic ways to construct an aggregate object: 

e Barray | 

e record 

e set 


e string 


e file 
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An array has components which are all of the same type. 
A component is selected by a computable minder. The type 
of such an index must be a scalar, and is-determined at the 
time the array is declared. 


A record has components called fields which need not be all 
of the same type. A field selector for a component of a 
record is an identifier that is uniquely associated with the 
component to be selected. Unlike an array element index, 
a field selector is not a computable quantity. The field 
selectors are defined at the same time that the record is 
defined. A record type may consist of several variants. 
This means that different variables of the same record type 
may actually contain different structures. That is, the 
number and types of the components may differ between 
different instances of the same type. The particular variant 
which the specific variable assumes is indicated by a field 
called the tag field, common to all variants of that record. 


A set is a homogeneous collection of elements selected 
from some base type. The base type might be a user 
defined scalar type or a subrange of some scalar type such 
as integer or char. A Pascal set is the collection of values 
comprising the powerset of the base type. That means, the 
set of all subsets of that base type. 


A string data type is a sequence of characters whose length 
can vary dynamically during program execution. A string 
has a maximum length (its static length) which is deter- 
mined when it is defined. There are a rich set of intrinsic 
procedures and functions to manipulate strings. 


A file is a sequence of components of the same type. The 
sequence is normally associated with external storage or 
input and output devices, so that files are the means 
whereby a Pascal program communicates with the world 
outside of the computer. Files can be sequential such that 
there is a natural ordering, and only one component of the 
file is accessible at any one time, or they can be random, 
such that any given component of the file is accessible on 
demand. 


1-4 3/10/86 


Pascal Introduction 


Explicitly declared variables are called static, in that they are 
known at compile time (lexically static). A declaration 
associates an identifier with the variable. The identifier is 
subsequently used to refer to that variable. In contrast to 
static variables, dynamic variables are created by executable 
statements. Such a dynamic creation of a variable yields a 
pointer (which substitutes for an explicit declaration), that is 
subsequently used to refer to the dynamically allocated 
variable. Any given pointer variable may only assume 
values pointing to variables of a specific type, and is said to 
be bound to that type. A pointer may be.assigned to other 
pointer variables of the same type. Any pointer can 
assume the value nil - a universal pointer that is not 
bound to a specific type. | 


The assignment statement is the fundamental Pascal state- 
ment. It assigns a newly computed value to a variable or a 
component of a variable. New values are obtained by 
evaluating expressions. Expressions consist of variables, 
constants, sets, operators, and functions, operating on 
specified objects, to produce new values. Operands of 
expressions are either declared in the program, or are stan- 
dard Pascal entities. 


Pascal defines a fixed set of operators that can be con- 
sidered to define a mapping from given operand types into 
result types. Operators encompass the four groups: 

e arithmetic operators 

e Boolean operators 


e set operators 


e relational operators 


A procedure statement causes execution of a designated pro- 
cedure. This is known as actvatng or calling the procedure. 
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Assignment and procedure statements are the basic ele- 
ments of structured statements. Structured statements specify 
sequential, selective, or repetitive execution of their com- 
ponent statements. 


Sequential execution is obtained by the compound statement. 
Conditional and selective execution is obtained by the #f 
statement and the -case statement. Repetitive execution is 
specified by the while statement, the repeat statement, or 
the for statement. 


A statement can be given a name (an identifier), and sub- 
sequently be referenced via that name. The statement is 
then called a procedure, and its declaration is a procedure 
declaration. 


A procedure declaration can itself contain type declarations, 
variable declarations, and further procedure declarations. 
These subsequent declarations can only be referenced 
within that procedure, and are thus said to be local to the 
procedure. 


The program text that comprises a procedure body is called 
the scope of any identifiers declared local to that procedure. 
Since procedures may be declared local to other pro- 
cedures, scopes may be nested. Objects declared in the 
main program block, not local to any procedure, are said to 
be global, in that their scope is that of the entire program. 


A procedure can have a number of parameters (determined 
at procedure declaration time), each parameter being 
denoted by an identifier called the formal parameter. When 
a procedure is activated, each of the formal parameters has 
an actual quantity substituted so that quantity is accessed by 
reference to the formal parameter identifier. These quanti- 
ties are called actual parameters. 
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There are three sorts of parameters: 
e value parameters 
e variable parameters 


e@ procedure or functon parameters 


A value parameter is an actual parameter which is 
evaluated once. The formal parameter then represents a 
local variable conveniently initialized to the value of the 
actual parameter. 


In the case of a variable parameter, the actual parameter is 
a variable; the formal parameter actually references wat can 
alter that variable. f 


Possible array jailexes are evaluated before activation of 
the procedure or function. In the case of a procedure or 
function parameter, the actual parameter is a procedure or 
function identifier. 


Functons are declared in the same way as procedures. The 
difference is that a function returns a value. Pascal func- 
tions have intuitive similarities to the mathematical notion; 
that is, a function is a computational entity that is applied 
to some arguments and generates a result. Pascal functions 
differ from the rigorous mathematical notion of functions 
in that they can have side effects. 


The type of the returned value must be specified as part of 
the function declaration. Functions can only return scalar 
types or pointer types. A function reference must appear in 
the context of an expression. 


Pascal procedures and functions are inherently recursive. 
That means that a procedure or function can call itself anew 
before the current activation is complete. On each activa- 
tion, a fresh set of local data is created. 
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Recursive activation can be direct (the reference is con- 
tained within the procedure or function itself) or indirect 
(the reference is from another procedure or function which 
in al is referenced from the current procedure or func- 
tion). 


1.2 METALANGUAGE 


A metalanguage is a collection of notations that describes 
another language. In this. case, the language being 
described is Pascal. The metalanguage used in this manual 
to describe Pascal is a modified version of the ubiquitous 
Backus-Naur Form, or BNF (first used to describe Algol). 
A description of the metalanguage follows. 


e Syntactic constructs which are enclosed between 
angle brackets (< and >) define the basic language 
elements. Every language construct should eventu- 
ally be defined in terms of basic lexical constructs 
defined in the remainder of this chapter. 


e A construct appearing outside the angle brackets 
stands for itself, that is, it is supposed to be self 
denoting. Such a construct ds known as a terminal 
symbol. 


@ The symbol ::= is to be read defined as. 


e The symbol .. means through, indicating an ordered 
sequence of things where only the start and end ele- 
ments are specified. (The reader is left to infer the 
middle elements). | : 


6 ? 


For example, the notation ‘a’ .. ‘z’ means the 
- ordered collection starting with the letter ‘a’, ending 
with the letter ‘z’, and containing the letters ‘b’, 


c’....X’, ‘y’ in between. In other words, all the 
lower case letters. 
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The vertical bar symbol (|) is read as or. It separates 
sequences of elements that represent a choice of one 
out of many. 


The metalanguage construct {...} (elements inside 
braces) encloses elements which are to be repeated 
zero to many times. Although the braces are also 
used as one of the forms of comment delimiters in 
Pascal, this should not cause any ambiguity. The 
one case where ambiguity would occur is in the 
definition of comments, and this is explicitly pointed 
out at that time. | | 


It is recognized that the syntactic descriptions are not com- 
pletely rigorous in that they do not cover semantic issues. 
For example, the syntactic definition of a decimal number 
does not mention how big a number can be. Where. the 
formal descriptions fall short, they are augmented with nar- 
rative English prose. 
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1.33 ELEMENTARY LEXICAL CONSTRUCTS 


Pascal language lexical units, identifiers, basic symbols, and 
constants, are constructed from one or more (juxtaposed) 
elements of the alphabet described below. 


ALPHABET 


SVS Pascal uses an extended form of the ASCII character 
set for all text-related processing. ASCII is the American 
Standard Code for Information Interchange. There are 128 
characters in the ASCII character set: 52 letters (upper case 
A through Z, and lower case a through z), 10 digits, space 
(often called blank), 33 control codes (such as carriage 
return and line feed), and 32 graphic characters such as 
colon, equals sign, and so on. Pascal also allows an addi- 
tional 128 values to be. used as data values, for a total of 
256 possible data values. | 


The Pascal compiler recognizes the following alphabet or 
character set: 


<letter> eae AS ee Ae Se 
and ‘_’ 

<digit> rae | eee! 

<hex digit> s== <digit> | ‘a’ .. ‘f? | 
‘A’ - ‘’ 

<ASCII graphic characters> ::=!”"#$%&’()*t= 


~ 


+-,./<>?\[@*| 
{} 


3 e 


Note that the definition of <letter> above includes the 
underline character. 
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PASCAL IDENTIFIERS 


Pascal idenikfiers serve to denote constants, variables, pro- 
cedures, and other language objects. 


<identifier> ::= <letter> { <letter> |<digit> } 


A Pascal identifier must start with a letter or an underline 
character. It can contain letters, digits, and the underline 
character. The underline is usually used to mark off spaces 
in the identifier to provide for readable and meaningful 
names. A Pascal identifier may be any length, but only the 
first 31 characters are significant to the compiler. Upper 
and lower case letters are all folded to a single case in the 
compiler, making them equivalent. 


Examples of Identifiers 
here_and_there August_1979 | Steve_and_Jeff 
_X25 Tau_Epsilon_Xi DragonsEgg 


UPanddown upandD OWN upAND down 


The last three identifiers in the examples are equivalent 
because the compiler folds letters to a single case. 
Examples of Invalid Identifiers 


ist_character_must_be_a_letter 


mustn’t_have_odd_#$”|_characters_in_it 
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NUMBERS 


‘Numbers are used to denote integer, real, and double data 
elements. Integers are assumed to be in the decimal 
number base, unless designated as a hexadecimal number. 


<unsigned integer> = <digit> {<digit>} 


<unsigned real> ::= 
<unsigned integer>.< unsigned integer> 
| <<unsigned integer>.<unsigned integer>E<scale factor> 
| <unsigned integer>E<scale factor> 
| <<unsigned integer>.< unsigned integer>D <scale ‘s6tor Ss 
|<unsigned integer>D <scale factor> 


<unsigned number> ::= <unsigned integers i unsiened real> 
<scale factor> ::= <unsigned integer> |<sign><unsigned integer> 
<sign> ::= + |- 
<hex number> := $<hex digit> {<hex digit>} 


Hexadecimal numbers are considered unsigned, unless they 
are explicitly written as 32-bit values with the most 
significant bit a one. For instance, the value $fff is 65535 
and not-1. The value $ffffffff is a negative number. 


Integer numbers are represented internally in the two’s 
complement. notation. As a consequence, there is one 
more negative integer than there are positive integers. 
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Values of type double are designated by a letter D preced- 
ing the exponent part of the number. 


Examples of Valid Numbers 


666 { unsigned decimal integer } 
+99 -457 { signed decimal numbers _ } 
$3e8 a { a hexadecimal number } 
0.0 | { the real number zero +} 
3.14159 | | 
1.23D 10 { a double number } 

_ | Examples of Invalid Numbers 
5. { should be a digit after the point } 
.618 { should be a digit before the point } 
5.E10 { should be a digit after the point } 
2FC9 { Invalid decimal number } 
F034 { An identifier, not a hex number } 
PASCAL STRINGS 


Sequences of characters enclosed in apostrophes are called 
strings. Strings of one character are constants of type char. 
A string of ‘n’ characters, where ‘n’ is greater than one, is . 
an ambiguous constant that is either a string value, or is a 
value of the type packed array [1 .. n] of char; The exact 
type of such a string constant is determined from the con- 
text in which it appears. 
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A string constant which is just simply two juxtaposed apos- 
trophes (’’) represents a variable string constant of length 
Zero. 


SVS Pascal provides for entering any character value into a 
string by coding its two-digit hexadecimal value preceded 
by a reverse slash (). This means that non-printing charac- 
ters such as BEL and ETX may be entered into a string. A 
sign followed by a non-hexadecimal digit is simply that 
character. Thus ‘\Y’ is equivalent to ‘Y’, ‘\” represents ‘\’ 
and ‘\3X’ represents ‘\03X’. This last case is interesting in 
that leading zeros are implicit in the hexadecimal number if 
there is only one hexadecimal digit followed by a non- 
hexadecimal digit. 


An apostrophe in a string is represented by two juxtaposed 

apostrophes. The rules for reverse slash character 

representations above means that an apostrophe can also be 

represented by the string ‘\’’, or by the string ‘\27’. 
<string> ::= ‘<character> {<character>} 

< character value> == <two digit hexadecimal number> 

Examples of Strings 

‘This is a string constant’ 

‘This string has an embedded ”’ apostrophe’ 

‘here is how to get a \07 bell character in a string’ 


‘to get a back slash, just type \\’ 
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PASCAL LABELS 


A label is used to mark statements as the potential target of 
a goto statement. 


Pascal labels are unsigned integer constants in the range 0 .. 
9999. 


<label> ::= <unsigned integer> 


BASIC SYMBOLS 


Pascal has a set of basic symbols which the compiler uses 
for specific purposes in the language. These basic symbols 
include selected identifiers (reserved words), graphic char- 
acters, and pairs of graphic characters. These basic symbols 
are used as keywords, operators, delimiters and separators. 
Such symbols are introduced throughout the es of this 
manual. 


Note that user-defined identifiers may not ie the same as 
any Pascal reserved word. 


There are two lists of basic symbols shown below. One is a 
list of Pascal reserved words and the other is a list of the 
special graphic symbols that Pascal uses. 
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and 
array 
begin 
case 
const 
div 

do 
downto 
else 


Pascal 

Pascal Reserved Words 
end label program _ until 
file mod record uses 
for nil repeat var 
function not set while 
goto of string with 
if or then 
implementation otherwise to 
in packed type 
interface procedure unit — 


Pascal Special Symbols 


Adding Operator. 
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Subtracting Operator. 
Multiplying Operator. 


Division Operator (for real and double data 
types). 


Assignment Operator. 


Terminates a Pascal Compilation Unit; Separates. 
integer from fraction in a real or double 
number; Indicates reference to a field of a 
record. 


Separates items in lists. 
Statement and Declaration Separator. 


Used after case labels, statement labels, variable 
and parameter descriptions. 
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String delimiter. 


Relational equality operator; Used in constant 
and type definition. 


Relational operator for inequality. 

Relational operator for less than. 

Relational operator for less than or equal to. 
Relational operator for greater than or equal to. 
Relational operator for greater than. 


Encloses lists of elements; encloses parts of 
expressions that are to be considered indivisible 
factors. 7 


Encloses array subscripts and lists of set ele- 
ments. 


Comment delimiters. 
An alternative form of comment delimiters. 
pointer dereference operator. 


Indicates a range of elements. 
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CONVENTIONS FOR SPACES 


Spaces (also called blanks) are used to separate lexical 
items. Identifiers, reserved words and constants must not 
abut each other, neither may they contain embedded 
spaces. Multiple-character basic symbols such as <= must 
not contain embedded spaces. 


Other than that, spaces may be used freely (to improve 
program readability for instance). They have no effect, out- 
side of character and string constants, where a space 
represents itself. 


COMMENTS 


Comments in Pascal may appear anywhere that a space may 
appear, and in fact, serve the same purpose as do spaces. 
But note that a comment within a string constant is part of 
the string constant and is not really a comment. Pascal 
comments are enclosed between braces {...} or between the 
characters (* and *). 


<comment> := { <any printable characters except ”}’> } 
|(* <any printable characters except ”*)” *) — 


In the description above, the braces enclosing the comment 
are the comment delimiters, not metalanguage symbols. 


For historical reasons, Pascal accepts two forms of com- 
ment delimiters. The open and close braces { } can be used 
where the character set provides such. Most modern com- 
puter systems and terminals accommodate those characters. 
Those systems which do not accommodate the full ASCII 
character set can use the alternative forms of (* and *) to 
delimit comments. | | 
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Comments that start with one kind of opening delimiter 
must end with the corresponding closing delimiter. For 
example: | 
{ this Pascal comment is enclosed in braces } 

(* this comment uses the alternative delimiter *) 

{ this Pascal comment would go on for ever because *) (+* 
does not close the comment. For that we need a closing 
brace } 


Pascal comments can span multiple lines, thus providing a 
block comment capability. 
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DEFINING DATA TYPES 


One of Pascal’s major attractions is the ease with which 
users can describe and manipulate data. An important 
aspect of structured programming technology is the ability 
to structure data as well as control statements. This is pro- 
vided in Pascal through the notion of a data type. 


A type defines a collection of values that a variable, con- 
stant or expression may take on. A type has an associated 
size, but of itself reserves no storage space. Storage is only 
reserved when a variable is declared as an instance of that 
type. Although Pascal data types can be quite complex, 
they are ultimately composed of simple unstructured com- 
ponents. An example is the predefined type integer. Its 
size is two bytes (16 bits). The set of values it contains is 
-32768, ..., -1, 0, 1..., 32767. 


In addition to having a size and a set of values, a type has a 
collection of operations in which values of that type can 
participate. 


Pascal provides a number of predefined types (some of 
which were described in Section 1), as well as the means 
for users to define their own types. Section 2.2 of this 
chapter describes all predefined Pascal types. 


Type constructors are the means by which users can define 
their own types. Structured type constructors facilitate the 
definition of new and larger types based upon other existing 
types as components. 


2.1 DEFINING CONSTANTS 


A literal constant is a value that denotes itself; its value is 
manifest from its appearance. The integer 1776 and the 
string ‘‘Manila’’ are literal constants. A constant definition 
introduces an identifier that is a synonym for a constant. 
Using the identifier is equivalent to using the associated 


3/10/86 | 2-1 


Defining Data Types Pascal 


literal constant. Whereas the string ‘‘3.14159’’ is a literal 
constant, an identifier called ‘‘Pi’’ could be defined which is 
a synonym for the number. The identifier is then known as 
a constant identifier, or just a constant. 


<constant identifier> ::= <identifier> 


<constant> ::== <unsigned number> 
<sign> <unsigned number> 
<constant identifier > 
<sign > <constant identifier > 
| <string> 


<constant definition> := <identifier> = <constant>; 


The definition above means that a constant may be defined 
to be another constant, but prohibits constant expressions. 


PREDEFINED CONSTANTS 


Pascal provides three constants that are automatically 
declared as part of the language. The three constants are: 


true Represents the truth value for a Boolean type. 
false Represents the falsity value for a Boolean type. 


maxint An integer constant representing the largest 
integer that Pascal can store. Maxint is 
currently defined as 32767. 


Examples of Constant Definitions 


Liters_per_bottle = 0.750; { standard bottle is 750 ml } 
Bottles_per_Case = 12; { standard case } 
first_vowel = ’a’; { achar constant }. 

Winery = ’Chateau Montelena; { astring constant } 
Carriage_Return =’ d’; { carriage return character } 
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2.2 STANDARD TYPES 


SVS Pascal has eight predefined types available: 


integer 


longint 


real 


double 
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Integer type represents an implementation 
defined subset of the integers. It is 
equivalent to a subrange defined by a type 
definition that looks like: 


integer = -32768 .. 32767 


The integer data type therefore occupies 16 
bits of data storage. 


Is a long integer type. It is equivalent to a 
subrange defined by a type definition that 
looks like: 


longint = -2147483648 .. 2147483647 


The longint data type therefore occupies 32 
bits of data storage. 


Real type is a subset of the continuum of 
real numbers. Reals are represented in 
floating point format which consists of a 
fractional part (a mantissa) and an 
exponent. The range of real numbers is 
approximately -3.4E38 .. + 3.4E38, with a 
precision of approximately seven decimal 
places. In addition, the real data type can 
take on extreme values, such as plus 
infinity, minus infinity, and Not a Number 
(abbreviated NaN), which arise from 
overflow and division by zero. There is a 
detailed discussion of extreme values in 
Append E: Data Representatons. 


Double type is a double precision form of 
the real data type described above, and is a 
subset of the continuum of real numbers. 
Double numbers are represented in float- 
ing point format which consists of a frac- 
tional part (a mantissa) and an exponent. 


2-3 


Defining Data Types Pascal 


Boolean 


text 


interactive 


The range of double numbers is approxi- 
mately -1.8D308 .. + 1.8D308, with a pre- 
cision of approximately 15 decimal places. 
In addition, the double data type can take 
on extreme values, such as plus infinity, 
minus infinity, and Not a Number (abbre- 
viated NaN), which arise from overflow 
and division by zero. There is a detailed 
Discussion of extreme values in Appendiwz 
E: Data Representatons. 


Boolean type represents the ordered set of 
truth values whose constant denotations 
are false and true. Boolean is conceptually 
equivalent to an ordinal type specified by a 
type definition that looks like: 


Boolean = (false, true) 


Character type defines the set of 256 
values of the ASCII character set, and is 
equivalent to the subrange defined by a 
type definition that looks like: | 


char = ’\\0’ .. ’\\255’ 


An unpacked char data item occupies one 
word or 16 bits of data storage. A packed 
char data item occupies one byte or 8 bits 
of data storage. 


Is equivalent to a packed file of char. 


Is a file type the same as that of text, 
except that the standard procedures 


~ READLN and WRITELN treat the end- 


of-line in a way that is more suitable for 
interactive (terminal) devices. 
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2.3 DEFINING DATA TYPES 


Pascal data types (or just types for short), are used to define 
sets of values that Pascal variables may assume and in 
many cases, a notation for referencing such variables. Pas- 
cal provides a small number of predefined types, reserved 
identifiers for these types, and a notation for defining new 
types in terms of existing types. 


Type declarations introduce new (user defined) types, and 
identifiers for those newly-declared types. 


<type spec> ::= <type identifier> — <Pascal type>; 


Type declarations can be used for purposes of brevity, clar- 
ity and accuracy. Once declared, a type may be referred to 
elsewhere in the program by its declared type-identifier. 


2.4 SIMPLE TYPES 


Simple types are those that have neither structure nor com- 
ponents. The simple types are as follows: 


<simple type> ::= <scalar type> 
<standard type > 
<subrange type> 
|  <type identifier> 


SCALAR TYPES 


A scalar type defines a well-ordered set of values by 
enumerating the identifiers that denote those values. A 
scalar type is also known as an enumerated type or an ordimal 
type. An ordinal type is represented by the ordered set of 
integers 0, 1, 2, 3, ....., with the first identifier being 0, up 
to the last identifier which is ‘‘n’’1, where ‘‘n’’ is the 
number of identifiers in the list. 


<scalar type > ::= (<identifier> { <identifier> }) 
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Examples of Scalar Type Definitions 


salad_greens == (Spinach, Lettuce, Coriander, Escarole, 
Watercress); 
bottle_sizes = (Fillette, Bottle, Magnum, Marie_Jeanne, 


Jeroboam, Imperial); 


mealtimes == (Breakfast, Elevenses, Lunch, Afternoon- 
| Tea, Dinner); 


SUBRANGE TYPES 


A subrange type represents a subrange of values of another 
scalar type. It is defined by a lower and an upper bound. 
The lower bound must not be greater than the upper 
bound, and both bounds must be of identical scalar types. 


Values from a subrange and values from its parent range 
(or another subrange of its parent range) can be assigned to 
each other and can enter into the operations of assignment, 
comparison, and other binary operations. 


<subrange type> ::= 
<subrange type identifier> |<lower> .. <upper> 


<lower> ::= <signed scalar constant> 
<upper> ::= <signed scalar constant> 


Examples of Subrange Type Definitions 


small integer = 0.. 15; 
days_in_year = 1.. 366; 
positive_integer = 0 .. 32767; 
lower_case_letters = i aia Ae 
colors = _ (red, orange, yellow, green, blue); 
hot_colors = red .. yellow; - 
cold_colors = green .. blue; 
hues = red .. blue; 
days = (Saturday, Sunday, Monday, T, 
W, T, Friday); 
weekdays = Monday .. Friday; 
weekends = Saturday .. Sunday; 
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2.5 STRUCTURED TYPES 


Structured types represent collections of objects. They are 
defined by describing their element types and indicating a 
structuring method. These differ in the accessing mechan- 
isms and in the notation used to select elements from the 
collection. 


Pascal makes available five structuring methods: array, 
string, set, record and file. Each type is described in the 
subsections to follow. 


A structured type may be given the packed storage attri- 
bute. This advises the compiler that the structure is to use 
data storage economically, by packing the components of 
the structure densely. Packing is often achieved at a cost of 
larger code size and slower execution speed. Furthermore, 
a component of a packed variable can not be passed as a 
var parameter to a procedure or function (this restriction 
applies to components of packed array of char). A full dis- 
cussion on how components are packed can be found in 
Appendix E: Data Representatons. 


<structured type> ::= <unpacked structured type> 
_ {packed <unpacked structured type> 


<unpacked structured type> ::= <array type> 
<string type> 
<record type > 
<set type > 
| <file type> 
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ARRAY TYPES 


An array type is a structure consisting of a fixed number of 
components, all of the same type (called the component 
type). Array elements are designated by indexes, which are 
values belonging to the so-called index type. The array 
type-definition specifies the component type as well as the 
index type. 


<array type> ::= array [<index list>] of <type> 
<index list> ::= <simple type> {, <simple type>} 


If ‘n’ index types are specified, the array is an ‘n’ dimen- 
sional array. Note that the above definition for an array 
type means that there are two alternative ways of specifying 
an array. By definition, a component of an array can be 
another array type. Thus a three dimensional array could 
be specified as follows: 


blivet = array [1..10, 11..20, 21..30] of blimps; 


widget = array [1..10] of array [11..20] of 
array [21..30] of blimps; 


The alternative forms of specifying array types are 
equivalent. The first form can be thought of as a short- 
hand notation for the second form. There is a similar 
choice of notations when specifying the index elements for 
accessing an array component. 
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When the index type is a subrange of the type integer, the 
type: 

packed array [1 .. n] of char 


is a special case. Objects of this type up to a maximum 
length of 255 characters can be compared as single entities, 
whereas arrays of other data types must be compared ele- 
ment by element. A literal string constant can be assigned 
to a packed array of char, providing that the lengths are the 
same. The type of a literal string of length ’n’, where ’n’ is 
greater than 1 is compatible with the type: 


packed array [1 .. n] of char 
Examples of Array Type Definitions 


rows = 1 .. 3; 
columns = 1 .. 4; 


bottle_quantities = array [bottle_sizes] of integer; 
standard_case = packed array [rows| 
of array [columns] 


of bottles; 


token = packed array [1 .. 100] of char; 
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STRING TYPES 


SVS Pascal has a structured type constructor called string. 
A string variable has a maximum length (called its static 
length) which is determined when the string is defined. A 
string variable also has a dynamic length which can vary 
over the range 0 through its static length during execution 
of a program. The standard function LENGTH can be 
used to determine the string’s dynamic length. The max- 
imum static length of a string variable is 255 characters. 


Strings can be manipulated by standard Pascal syntax, or by 


using string handling intrinsics, described in Section 8: Stan- 
dard Procedures and Functions. 


<string type> ::= string|<static length>] _ 


<static length> ::= integer constant in the range 1 .. 255 


99 


A string constant which is °’ (two juxtaposed apostrophes) 
represents a null or zero-length string. 


Example of String Type Definition 


manila = string| 100]; 
punched_card = string[80]; 
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RECORD TYPES 


A record type is a structure consisting of a fixed number of 
components that may be of different types. For each com- 
ponent, or field of the record, the definition specifies both a 
type and an identifier used to reference the field. The 
scope of these field identfiers is the definition of the record 
itself. This means that the same field identifier may appear 
in more than one record. A field identifier is also accessi- 
ble within a field designator when referring to a variable of 
this record type. 


Record components which are themselves records do not 
inherit the packing attribute of the containing record. Each 
component which is a record has independent packing attri- 
butes. 


A varunt record caters to the need for a record composed of 
a portion which is always the same, plus one or more vart- 
ants whose layouts differ between different instances of the 
record. The specific variant that is selected in any given 
instance is determined by an optional tag field. Such a 
structure is called a variant record or a discriminated union. | 
The tag field is often called a discriminant. The tag field’s 
value indicates which variant the record assumes at a given 
time. Each variant structure is identified via a case label 
which is a constant of the tag field’s type. Referencing a 
field of a variant that is inconsistent with the tag’ fields’s 
value is a serious programming error. _ 


<record type> ::= record <field list> end; 
<field list> ::== <fixed part> 
| <fixed part> ; <variant part> 
| <variant part> 


<fixed part> ::= <record section> {; <record section>} 


<record section> ::= <field identifier list> : <type> 
<field identifier list> ::= <field identifier> {,< field identifier>} 
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<variant part> ::== 
case {<tag field>} <type identifier> of <variant list> 
<variant list> :== <variant> { <variant>} 
<variant> ::= <case label list> : (<field list>) 
<case label list> ::== <case label> {, <case label>} 
<case label> ::= <constant> | 
<tag field> ::= <identifier>: 


Note that the <tag field> is optional in a i record 
definition. 


Examples of Record Type Definitions 


the example to follow illustrates an } 

ordinary record called ComplexNumber, } 

which contains two fields, namely the } 
real part and the imaginary part. } 


ComplexNumber = record 
RealPart: real; 
Imaginary: real; 
end; 
The example below illustrates a variant } 
record type which has different sections } 
: that are accessed depending on the tags. } 


First we define an enumerated type which } 
{ is used as the variant case selector.  } 


shapes = (rectangle, triangle, circle, polygon); 


angle = -180 .. + 180; 


2-12 3/10/86 


Pascal Defining Data Types 


PositionRec = record 
x_position: real; 
y_position: real; 
case whatshape: shapes of 
rectangle: (recbase: real; 
recheight: real); 
triangle: (tribase: real; 
triheight: real; 

_ triskew: angle); 
circle: (cirradius: real); 
polygon: (SideCount: integer; 

polradius: real); 
end; 


SET TYPES 


A set type definition serves to define the base type that the 
set is to use in future manipulations. Sets are limited to 
2032 elements. The range of the set elements must be 
within the range 0 .. 2031. 


<set type > ::= set of <simple type> 


Examples of Set Type Definitions 
salad_base = set of salad_greens; | 
dressings = set of salad_dressings; 


lower_case = set of ’a’..’2’; | 
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FILE TYPES 


A file type defines a sequence of elements. A file is usually 
associated with external storage devices or communication 
devices. SVS Pascal supports the standard Pascal typed 
files, untyped files and an interactive file type more suitable 
for terminals. 


When a file variable ‘f’? with components of type ‘T’ is 
declared, there is an additional implied declaration of a so 
called buffer variable or ‘window’, also of type ‘T’. This 
window is referenced by the notation f* where ‘f? is the file 
variable. This window is used in conjunction with the GET 
and PUT procedures (see Section 6: Input and Output) and 
serves to append components to the file when writing, and 
to access the components when reading from the file. 

<file type> := file of <type> 

| file | 

SVS Pascal supports untyped files. An untyped file can be 
considered to not have a window variable. Such files must 


be accessed using the BLOCKREAD and BLOCKWRITE 
functions described in Secton 6: Input and Output. 


A file of the pre-defined type text can be considered to be 
defined by a type definition of the form: 


text = packed file of char; 


Such a file is special in that the range of its components 
(characters) are extended to include an end-of-line marker. 
Such a file can then be conveniently structured into lines. 
The EOLN predicate described in Section 8: Standard Pro- 
cedures and Functions, covers how the end-of-line is 
detected. 
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SVS Pascal also supports an interactive file type which 
display different behavior in the way that the READ, 
READLN and RESET intrinsics work. The differences are 
covered in Secton 6: Input and Output An interactive file is 
more suitable for use with interactive terminals. 


Examples of File Type Definitions 
block_access = file; 
numbers = file of integer; 
Capping_Line = file of bottles; 
Terminal = interactive; 


legible_file — text; 


2.6 POINTER TYPES 


Explicitly declared variables are accessible by reference to 
the identifier used to declare them. Such variables are | 
accessible during the activation (scope) of the procedure in 
which they are declared. These variables are called static, 
that is, lexically static. 


Variables may also be created dynamically, in other words, 
with no correlation to the program structure. These 
dynamic variables are created via the procedure NEW. 
Since such variables do not have an associated name, they 
are accessed via a pownter value which is generated when the 
variable is allocated. A pointer type is therefore a value 
which points to a variable of a specific type. 
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There is a universal pointer value called nil, which belongs 
to any pointer type. It represents a pointer which points to 
no element. 


<pointer type> ::= “<type identifier> 
Examples of Pointer Type Definitions 


blackboard = record 
long_side: integer; 
short_side: integer; 
end; 


cue = “blackboard; 


TwoWay = record 
next: “Two Way; 
previous: “Iwo Way; 
stuff: array|0 .. 10] of integer; 
end; 


Sym Tree = record 
name: string|[31]; 
LeftNode: “Sym Tree; 
RightNode: “Sym Tree; 
end; 
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2.7 TYPE IDENTITY AND ASSIGNMENT 
COMPATIBILITY 


Pascal has strict type checking so that objects of one type 
cannot be combined in operations with objects of a 
different type. There are two major concepts to be 
described here, namely identical types and assignment compa- 
&ble types. 


IDENTICAL TYPES 


Two types, Tl and T2 are considered identical under the 
following conditions: © 


e T1 and T?2 are the same type. 


e Tl is declared as synonymous with another type T3, 
where T2 and T3 are identical. 


Examples of Type Identity 
type_x = integer; 
type_y = integer; 
type_1 = set of char; 
_2 = set of char; 


_ id_type = type_l; 


In the above example, the types ‘type_x’ and ‘type_y’ are 
identical, because they are defined to be the same type, 
integer. The types ‘type_l’ and ‘type_2’ are not identical, 
since they occur in different type definitions. The types 
‘type_1’ and ‘id_type’ are identical however, because 
‘id_type’ is defined to be the same as ‘type_l’. 
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ASSIGNMENT COMPATIBLE TYPES 


A value of type T1 is considered to be assignment compati- 
ble with a variable of type T2 if any of the following condi- 
tions are true: 


e Ti and T2 are identical and do not contain a file as a 
component. 


e Tl is a subrange of T2, or 
e T2 is asubrange of T1, or 
e Tl and T2 are subranges of identical types. 


e Ti is assignment compatible with integer and T2 is 
real or double. 


@ Tl and T2 are both variable string types. 


e Tl and T2 are sets of elements of types T3 and T4, 
and T3 is assignment compatible to T4. 
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VARIABLES 


This chapter covers two topics. First there is a discussion 
of how Pascal variables are declared in terms of the data 
types described in the previous chapter. Then there is a 
description of the way that variables of different types are 
accessed or referenced. 


3.1 DECLARING VARIABLES 


A variable has a type and a storage area in memory. At any 
given time, a variable takes on one value out of the collec- 
tion of values that define its type. A variable is initially 
undefined, and remains so until it is initialized by an expli- 
cit assignment. 


All variables in a Pascal program must be declared explicitly 
and prior to their use. 


Variable declarations consist of a list of identifiers that 
represent the variables, followed by the type of the vari- 
able. 


<variable declaration> ::== 
<identifier> {,<identifier>}: <data type>; 


Examples of Declaring Variables 


Impedance: ComplexNumber; { arecord variable } 


ChainHead: Two Way; another record } 
TreeTop: Sym Tree; and another } 

First, Middle, Last: integer; { plain integers } 
ValueFile: Numbers; { a file variable } 
CurChar: char; { a character variable } 
Omega: real; { areal variable } 
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3.2 PREDECLARED VARIABLES 
SVS Pascal has five pre-declared variables. These are: 
® input, output, and stderr 


Default files associated with the standard input, the 
standard output, and the standard error output file, 
respectively. 


On those operating systems which do not have a 
standard error output file, the file stderr is directed 
to the same place as the output file. 


® argc and argv 


Are variables which provide access to the command 
line that invoked the current Pascal program. 


These pre-declared variables are covered in detail in Section 
7: Program Structure. 


3.3 ESTABLISHING VARIABLES 


Establishing a variable is a process that involves: 
e Determination of the variable’s type. 


e Allocation of storage for the values that the variable 
takes on. | 


Explicitly declared variables are automatically established 
on each entry to the procedure or function block in which 
they are declared. Global variables (declared in the outer- 
most block) are established once and only once. 
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Formal parameters of procedures or functions are automati- 
cally established on each activation of that procedure or 
function. 


So-called dynamic variables are explicitly established by 
storage management operations (for type determination 
and storage allocation), and by assignment operations (for 
initialization). 


3.4 LIFETIMES OF VARIABLES 


The lifetime of a local variable is that of the block in which 
it is declared. Allocation occurs on each entry to that 


block, and de-allocation occurs on each exit from that 
block. 


GLOBAL VARIABLES 


Global variables are those variables declared in the outer- 
most block (in the program block). The lifetime of such 
global variables is the lifetime of the entire program. 


LIFETIME OF FORMAL PARAMETERS 


The lifetime of a formal parameter is the lifetime of the 
procedure or function which that formal parameter is a part 
of. The formal parameter becomes established upon each 
entry to the procedure or function, and becomes undefined 
upon exit from the procedure or function. 
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LIFETIME OF DYNAMIC VARIABLES 


Dynamic variables are established (but not initialized) by 
an explicit allocation operation (such as NEW). Dynamic 
variables become undefined when they are explicitly freed, 
or when no pointer variable points to them. Note that 
generally a pointer value has a finite lifetime which may be 
different from that of the pointer variable that can point to 
it. Local variables belonging to procedures and functions, 
cease to exist on exit from the block in which they were 
declared. Dynamic variables, on the other hand, cease to 
exist when they are explicitly freed or when no pointer 
variable points to them. Attempts to reference non- 
existent variables beyond their lifetimes is a programming 
error, usually with undesirable’ results from _ the 
programmer’s viewpoint. 


3.5 REFERENCING OR ACCESSING VARIABLES 


The method by which a variable or a component of a vari- 
able is. accessed differs depending on the structuring 
method used in the type definition for that variable. There 
are three basic access methods: 


e An entire variable is a variable of a simple type (no 
structure). An entire variable is referenced simply 
by giving its name. 


e A component variable is a variable of array, record or 
file type. The access methods are explained below. 


e A referenced variable is accessed through a pointer. 
<variable> ::= <entire variable> 


<component variable> 
<referenced variable > 


3-4 3/10/86 


Pascal Variables 


ENTIRE VARIABLES 


An entire variable is denoted by its identifier. Since an 
entire variable has no structure, its identifier alone is 
enough to reference it. 


<entire variable> ::== <variable identifier> 
Examples of Entire Variable References 
ChickenTeeth 


GiddyGoatHorns 
First 


COMPONENT VARIABLES 


A component of a variable is denoted by the variable fol- 
lowed by some selector that specifies the component. The 
form of the selector depends on the structuring method 
used to access the variable. 


<component variable> ::= <indexed variable > 


<field designator> 
<file buffer> 
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Referencing Indexed Variables 


A component of an ”n”-dimensional array variable is 
denoted by the variable followed by ”n” index expressions. 
An entire array (which can be a component) of an array 
can be denoted by giving ”n”-1 index expressions. In such 
a case, the entire last dimension of the array is indicated. 
This occurs when an entire array or an entire subarray is 
passed as an actual parameter to a procedure or function. 


<indexed variable> ::= <array variable> <subscript list> 


<subscript list> ::= | <expression> {,<expression >} | 
|[ <expression> | {| <expression> | 


The {,<expression>} in the definition above implies that 
there are as many expressions in the subscript list as there 
are dimensions in the array variable. Just as in defining an 
array type, there are two alternative methods for referenc- 
ing an array variable. Either the subscripts can be listed, 
separated by commas, inside the brackets, or there can be a 
list of bracketed subscript expressions. 


The index expression types must correspond with the index 
types declared in the array type definition. 


Examples of Array Variable References 
ladder| top] 
stairs| flight] [step] 


Footing|Left, Center, Right]: 
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Referencing Strings 


String variables can be referenced as single entities (when 
the entire string is being operated upon) or single charac- 
ters from a string can be referenced just like a packed array 
of char. Values can be assigned to string variables using 
assignment statements, string intrinsics or the READ or 
READLN procedure. String indexing is based from one 
(1) so that the expression on the string ”s”: 


s[LENGTH(s)] 


correctly yields the last character in the string. The 
dynamic length of the string may be addressed as ‘the 
zeroth element of the string. Thus the statement ’s[0] := 
chr(3)’ would set the dynamic length of the string to 3. 
The length must never be set to a value greater than the 
maximum declared for that string! It is an error to refer- 
ence a string "s” with an index less than zero or greater 


than LENGTH(s). 


Referencing Fields of Records 


A component of a record variable is denoted by the record 
variable followed by the component’s field identifier. The 
field identifiers are separated by periods. 


<field designator> ::== <record variable >.< field identifier> 
It is an error zero (which is not flagged by the Pascal sys- 


tem) to reference a field of a variant record that is incon- 
sistent with the tag field for that variant. 


3/10/86 3-7 


Variables Pascal 


Examples of Accessing Fields in Record Variables 
{ The first example is a simple field reference } 
im pedance.RealPart 


{ The second example illustrates a reference 
to a field of an array of records 


bottles| BurgundyType] .Loire 


{ The third example illustrates a 
deeply nested field reference _—} 


King _Caractacus.Court.Ladies.Faces.Noses 


Referencing File Buffers 
At any time, only the one component determined by the 
current file position (read/write head) is directly accessible. 
This component is called the current file component, and is 
represented by the file’s buffer variable. 

<file buffer> ::= <file variable>~* 


<file variable> ::= <variable> 
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POINTER REFERENCED VARIABLES 


<referenced variable> ::== < pointer variable>~ 


<pointer variable> ::== <variable> 


If ‘p’ is a variable which is a pointer to type ‘T’, ‘p’ means 
the pointer variable and its pointer value, whereas ‘p”’ 
means the variable of type “T’ that ‘p’ references. 
Examples of Pointer Reference 
TreeTop.LeftNode* { Left Node in the tree variable } 


cue’.longside { gets Long Side of Blackboard } 
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EXPRESSIONS 


An expression is a construct which defines the rules of 
computation for creating a value by performing operations 
(specified by operators) on operands (specified by variables, 
constants, and function references). These newly-created 
values can then be used in assignment statements or can be 
used (in conditional expressions) to control subsequent 
program actions. 


<unsigned constant> ::== <unsigned number> 
| <string> 
| <constant identifier> 
| nil 


<factor> == <variable > 
| <unsigned constant> 
| <function designator> 
| <set constructor> © 
| (<expression>): 
| not <factor> | 


<set constructor> ::= [| <element> {, <element >} 
<element> ::= eee premions 
| <expression> .. <expression> 


<term> :== <factor> 
| <term> <multiplying operator> <factor> 


Sails expr> :== <term> 
| <sim ple expr> <adding operator> <term> 
| <adding operator> <term> 


<expression> :: 


<simple “prs 
| <simple expr> <relational operator> <simple expr> 
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4.1 OPERATORS IN EXPRESSIONS 


Operators perform operations on a value or a pair of values 
to produce a new value. Most operators are defined only 
on basic types, though some are defined on most types. 
The following subsections define the applicable range, as 
well as the result, of the defined operators. 


With the exception of the @ operator, an operation on a 
variable or field which has an undefined value, produces an 
undefined result. 


ADDRESS EVALUATION OPERATOR 


The @ operator generates the address of a variable, user 
procedure or user function. The type of the resulting 
expression is the same as the type of the value nil. Thus 
an address can be assigned to any pointer variable. 


The precedence of the @ operator is above that of all other 
operators, but below that of array indexing and record field 
referencing. It can be applied to unpacked fields of records 
and unpacked array elements and to the dynamic variables 
pointed to by a pointer. It cannot be applied to com- 
ponents of any packed structure. 


Examples of the @ Operator 


@ Uncle_Bill Generates the address of a variable 
named ‘‘Uncle_Bill’’. 


@ TypeWheel|tilde] Generates the address of the tilde 
element of the array ‘‘TypeWheel’’. 


The @ operator, when applied to a user procedure or user 
function on some of the National Semiconductor Series 
32000 implementations of SVS Pascal, may generate the 
link table entry form of the address of the procedure or 
function instead of the absolute address of the procedure or 
function. 
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NOT OPERATOR 


The NOT operator applies to ee of type Boolean or 
integer. 


When applied to type Boolean, the meaning is negation. 
That is, not true = false, and not false = true. 


When applied to type integer, the NOT operator negates all 
the bits in the value. That is, it performs a one’s comple- 
ment negation of each bit in the operand. The result of 
applying the NOT operator to a value of type integer is type 
integer. 


MULTIPLYING OPERATORS 


The multiplying operators have the next highest Prereannee 
after the NOT operator. 


<multiplying operator> ::= * | / | div | mod | and 


The following table shows the multiplying operators, the 
permissible types of their operands, and the result types. 
Operands of the * (multiplication) and / (division) opera- 
tors can be mixed integer, real, and double data types. 


If both operands of the * operator are of type integer, the 
result i is of type integer. 


If either operand is of type double, the other operand is 
converted to type double, and the result is of type double. 
Otherwise, if either operand is of type real, the result is of 
type real. The result of the / operator is either real, or in 
the case when one or both operands are of type double, the 
result is of type double. 
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real, double, 
or integer 


| real, double, 
or integer 


multiplication 


| set pntereecuon an set type T 
ee ae 
or + intes per ou 
Kod Mica acall 
truncation 


| modulus | | integer ger | integer —_ per 
ry — 
bitwise and integer integer 


The div operator applies to values of type integer only and 
represents truncating division. div always truncates towards 
zero. It is an error to divide by zero. If the signs of the 
operands are the same, the result is positive; if the signs 
are different, the result is negative. 


The mod operator defines the modulus operation between 
two values of type integer. It is an error if the right 
operand of mod is zero. The interpretation of mod is: 


a mod b = a- (adiv b) *b 


When applied to operands of type Boolean, the and opera- 
tor produces a result of type Boolean as one might expect. 
When applied to operands of type integer however, the and 
operator performs a bitwise logical and on the operands and 
produces a result of type integer. 
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ADDING OPERATORS 


The adding operators have the next highest precedence 
after the multiplying operators. 


<adding operator> :=+ |- | or 


The following table shows the adding operators, their per- 
missible operand types, and the result types. Operands of 
the + (addition) and - subtraction operators can be mixed 
integer, real, and double data data types. 


If both operands of the + or - operator are of type integer, 
the result is of type integer. 


If either operand is of type double, the other operand is 
converted to type double, and the result is also of type dou- 
ble. Otherwise, if either operand is of type real, the result 
is also of type real. 


| Operator | Operation | Operands | ___—Result___ 
addition real, double, real, double, 
or integer or integer 


T 
real,double 
or integer 


set union 
subtraction 


real, double, 
or integer 


set eillere nce 

TE TERE 
| bitwise or integer integer 
When applied to operands of type Boolean, the or operator 
produces a result of type Boolean as one might expect. 
When applied to operands of type integer however, the or 


operator performs a bitwise logical or on the operands and 
produces a result of type integer. 
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SIGN OPERATORS 


The ‘+’ and ‘-’ signs can be used as unary operators. They 
apply to integer, real, and double data types only. Applying 
a unary operator to a data type produces a result which is 
the same data type as that of the operand. 


<sign operator> ::= + |- 


The table below shows the sign operators, their Ponies 
operand types and their result types. 


or integer _ or integer 
a oe eee 
| | orinteger | or integer 
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RELATIONAL OPERATORS 


The following table shows the relational operators, their 
permissible operand types, and the result type. 


| Operator | __Operand Types__—|_ Result Type | 
any scalar or subrange type 
=<> set type 
pointer type Boolean 
packed array of char 
string 
any scalar or subrange type 
set type 
packed array of char 
string 


| any scalar or subrange type 
| string __ 
ee 
and its set type respectivel 


Note that all scalar types define ordered sets of values. 


Boolean 
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Comparison of Scalars 


All six relational operators (<, <=, >, >=, = and 
<>) are defined between operands of the same scalar 
type. 


For operands of type integer, real, or double, the operators 
have their usual meaning. Operands of integer, real, and 
double data types are considered to form a hierarchy, with 
the integer data type at the bottom of the pecking order, 
the double data type at the top, and the real data type in 
the middle. If the operands are of different numeric types, 
the lower type of operand is converted (or promoted) to 
the type of the other operand prior to the comparison. For 
example, in the expression: 


integer type < double type 


the integer operand is converted to double before the com- 
parison is made. 


For operands of type Boolean, the relation false < true 
defines the ordering. 


For operands of type char the relation ‘a’ op ‘b’ holds if 
and only if the relation ORD(a) op ORD(b), holds, where 
op denotes any of the six comparison operators and ord is 
the mapping function from type char to type integer defined 
by the ASCII collating sequence. 


For operands of any ordinal type ‘T’, ‘a’ = ‘b’ if and only 


if, ‘a’ and ‘b’ are the same value; ‘a < b’ if and only if, ‘a’ 
precedes ‘b’ in the ordered list of values that define ‘T’. 
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Comparison of Booleans 


If ‘p’ and ‘q’ are Boolean expressions, ‘:p = q’ means 
equivalence, and ‘p <= q’ means implication of ‘q’ by ‘p’. 


Direct Pointer Comparison 


Two direct pointers can be compared if they are pointers to 
identical types. To compare pointers of differing types, take 
their ORD. (See Section 8: Standard Procedures and Func- 
tions). 


Pointers may be compared for equality or inequality only. 


Two pointers with the value nil are always equal. 


String Comparison 


All six relational operators may be applied to string 
operands. The relational operators compare both packed 
array of char and string values. . 


In the case of a packed array of char, both operands must 
be the same size. The maximum length of string com- 
parison of values of packed array of char is 255 characters. 
That is, a variable whose declaration is like: 


var 
strtype: packed array [1 .. 255] of char; 


is the largest string variable that can be compared in one 
operation. 


In the case of string comparison, the operands may be of 
different sizes. If the operands are of different sizes, trailing 
spaces are significant. That is, the string 

‘A? 
compares less than the string 


‘A’ 
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Comparison of string operands or packed array of char 
operands denotes alphabetical ordering according to the 
ASCII character set collating sequence. 


Note that because a string data type is represented 
differently from a packed array of char, they cannot be 
compared with each other. On the other hand, a character 
string constant is of ambiguous type, and so a string con- 
stant can be compared either to a string operand or to a 
packed array of char operand, because the type of the string 
constant is converted to the type of the other operand in 
comparison operations. 


Set Comparison 


The relation , Scalar_value”’ in ‘‘some_set’’ is true if the 

‘‘sealar_value’’ is a member of the ‘‘some_set’’. The base 
type of the set must be the same as, or a ip of, the 
type of the scalar. 


The set operations = (identical to), and <> (different 
from), <= (is included in), and >= (includes) are 
defined between two set values of the same base type. For 
two sets ‘S1’ and ‘S2’ of the same base type: 


Sl = §2 is true if all members of S1 are con- 
tained in S2, and all members of S2 are 
contained in S1. 


‘St <> $2 is true when S1 = S82 is false. 


ol: <== 02 is true if all members of S1 are also 
| members of S2. 


Sl >= 82 is true if all members of S2 are also 
. members of S1. 
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Non-Comparable Types 


Certain Pascal types cannot be compared. These include 
files, arrays, variant records, and records containing fields 
of non-comparable types. The exception to this rule is that 
packed array of char operands can be compared if they are 
the same size. 


4.2 OUT OF RANGE VALUES 


It is possible that expression evaluation can yield results 
which are outside of the range of values for a given data 
type. Expressions involving the real and double data types 
can generate several different extreme values. 


The extreme value of positive or negative infinity is a result 
either of overflow, or by dividing a non-zero.value by 0.0. 


Underflow generates a value of zero. 


Dividing 0.0 by 0.0 generates a value of Not a Number 
(NaN). : 


Appendix E: Data Representahons contains a Description of 
the extreme values and their behavior in comparisons. 
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4.3 ORDER OF EVALUATION IN EXPRESSIONS 


The rules of composition for expressions specify operator 
precedence according to five operator classes. The pre- 
cedence is as follows: 


1. The address of @ operator has the highest pre- 
cedence. 


Then the NOT operator. 


Then the multiplying operators. 


= oe ie 


Then the adding operators. 
d. The lowest precedence is the relational operators. 


Operators at the same precedence level are applied left to 
right, except where parentheses are used to override the 
- normal order of evaluation. The order in which operators 
are applied is according to the rules above. The precise 
order of operand evaluation is undefined. Some operands 
may not be evaluated at all, if the value of the expression 
can be determined without the value of that particular 
operand. ' | 
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4.4 COMPILE TIME CONSTANT EXPRESSIONS 


The Pascal compiler evaluates certain types of integer and 
Boolean constant expressions at compile time. integer 
expressions consisting of constant expression operands and 
the following operators are folded into constant expres- 
sions: 


Binary Operators = <> + - * 
Unary Operators -- 


Boolean expressions consisting of constant expression 
operands and the following operators are folded into con- 
stant expressions: 


Binary Operators = <> and or. 
Unary Operators not 


DEAD CODE ELIMINATION 


The Pascal compiler recognizes code of the form: 


if FALSE then statement_1 else statement_2 


and generates code for statement_2 only. Similarly, if the 
Boolean expression is TRUE, only statement_1 is gen- 
erated. Constant expressions which fold into constants are 
recognized as constant TRUE or FALSE. This feature 
facilitates keeping several versions of similar source in the 
same file without adding extra generated code after the 
code is compiled. | 
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Example of Conditional Compilation 


const 
version = 10; 


if version = 7 then 
writeln(’Too old!’) 
else 
writeln(’Not too old!’); 


The code fragment above, with the constant version set 
equal to 10, has the same effect as a code fragment like 
this: 


writeln(’Not too old!’); 
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STATEMENTS 


Statements denote algorithmic actions, and are said to be 
executable. Statements define the actions that are to be per- 
formed on program objects that were introduced via type 
and variable declarations, discussed earlier in this manual. 


5.1 STATEMENT LABELS 


A statement can be labelled by preceding it with an 
' unsigned integer constant in the range 0 .. 9999, followed 
by acolon. The statement can then be explicitly referred 
to by a GOTO statement. 


SCOPE OF STATEMENT LABELS 


The scope of a statement label is the body of the procedure 
or function in which the label is declared and all nested 
procedures and functions. This means that a GOTO state- 
ment cannot transfer control into a procedure or function 
body unless that procedure or function has been activated. 


5.2 ASSIGNMENT STATEMENTS 


The assignment statement replaces the current value of a 
variable with a new value derived from expression evalua- 
tion, or defines the value that a function variable returns. 


<assignment statement> ::= 


<variable> := <expression> 
| <function identifier> := <expression> 
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ASSIGNMENTS TO VARIABLES AND FUNCTIONS 


The part to the left of the assignment symbol, :=, is 
evaluated to obtain a reference to some variable. The 
expression on the right side is evaluated to obtain a value. 
The referenced variable’s current value is discarded and 
replaced with the expression’s value. 


The variable on the left hand side of an assignment state- 
ment must be assignment compatible (see Section 2: 
Defining Data Types) with the type of the expression on the 
right hand side. 


A string constant may be sain to a variable of type 
packed array [1..n] of char, providing that the string value 
is the same length as the array object. The maximum 
length of such an assignment is 255 characters. | 


Examples of Assignment Statements 


<i) { simple assignment to variable } 
y:=x*104+ 18 { assignment of expression } 
ch := CHR(10) | { assignment of function value } 
rope :== ‘hemp’ { string assignment \ 
poke := POINTER( $200) 

poke* := 0 { clobber the system vector } 
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5.3 PROCEDURE REFERENCE STATEMENT — 


A procedure reference statement creates an environment 
for execution of the specified procedure and transfers con- 
trol to that procedure. 


<procedure call statement> ::= 
<procedure identifier> <actual parameter list> 
| <procedure identifier> 


<actual parameter list> ::== - 
(<actual parameter> {,<actual parameter> }) 


<actual parameter> := <expression> 
| <procedure identifier> 
| <function identifier> 


The actual parameter list must be compatible with the for- 
mal parameter list of the procedure. An actual parameter 
corresponds to the formal parameter which occupies the 
same ordinal position in the formal parameter list. 


Only formal parameters that are value parameters can have 
an actual parameter which is an <expression>. Value 
parameters must be assignment compatible with the type of 
the formal parameter. 


Formal parameters that are var parameters must have 
actual parameters that are identical types. In addition, the 
actual parameters must not be components of packed 
objects. , 
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5.4 STRUCTURED STATEMENTS 


Structured statements are constructs composed of state- 
ment lists. They provide scope control, selective execution, 
or repetitive execution of the constituent statement lists. 


<structured statement> ::= <begin statement> 
<if statement> 
<while statement> 
<repeat statement> 
<for statement> 
<case statement> 


BEGIN .. END — COMPOUND STATEMENTS 


A BEGIN statement specifies execution of a statement list. 
Exit from the statement list is either through completing 
execution of the last statement in the statement list, or 
through explicit transfer of control. 


<begin statement> ::= begin <statement list> end 


<statement list> ::= <statement> {; <statement> } 


IF .. THEN .. ELSE STATEMENTS 


The IF statement specifies that another statement be exe- 
cuted (or not) depending on the truth (or falsity) of a con- 
ditional expression. If the value of the conditional expres- 
sion is true, the statement is executed. If the value of the 
conditional expression is false, either no subsequent state- 
ment is executed, or the statement following an else clause 
is executed. 


<if statement> ::= 
if <Boolean expression> then <statement> 


| if <Boolean expression> then <statement> else <statement> 
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oA 


Because Pascal statements are open forms, it is possible to 
construct a chain of else if clauses to select one out of 
many different conditions. 


In common with similar languages, Pascal has what is called 
the ‘‘dangling else’’ problem. If an IF statement contains 
another IF statement as a subordinate, when an else clause 
is encountered, which IF statement does the else clause 
apply to? In Pascal, the else clause matches the most 
recent IF statement that does not have an else clause. One 
of the examples below clarifies this point. 


Examples of IF Statements 
{ example of a simple IF statement } 


if day in [Monday .. Friday] then 
Get_up_and_go 

else | 
Roll_over 


{ an IF statement with a 
compound block } 


if sun > yardarm then 
begin 
make_cocktails; 
prepare_snacks; 
relax 
end 
else 
flog_on 


{ anelse if chain } 


if weather = raining then 
sleep_in 

else if lawn = wet then 
clip_the_hedge 

else if grass > 6.then 
mow_the_lawn 

else 
turn_on_lawn_sprinklers 
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{ A dangling else clause } 


if condition_1 then {1 } 
if condition_2 then  { 2 } 
if condition_3 then { 3 } 
saeee statements ..... 
else { goes with statement 1 } 
seees statements ..... 
else { goes with statement 2 } 
oseee statements ..... 
else { goes with statement 3 } 
ooeee statements ..... 


CASE STATEMENTS 


A CASE statement selects one of its component statements 
depending on the value of an expression. The expression 
is called the case selector. Each of the component state- 
ments is tagged with one or more simple scalar constants. 
The tags are called selection specifications (<selection 
specs> for short). If the value of the selector matches 
that of one of the statement tags, that statement is exe- 
cuted. If the selector value matches none of the statement 
selection specifications, the statement (if any) FOOWINE an 
otherwise symbol is executed. 


Note that this Pascal implementation differs from the ISO 
standard in the provision of the otherwise clause. ISO Pas- 
cal has no provision for what to do if none of the case 
selectors match the selector expression. Strict Pascal con- 
siders this situation a run-time error. 


<case statement> ::= case <expression> of <cases> 
{otherwise: <statement>} end 


<cases> == <acase> {<a case>} 
<a case> ::= 
<selection spec> {, <selection spec>}: <statement>; 


<selection spec> ::= <scalar constant> 
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Case selectors and the statement tags must be non-real 
scalar types. In addition, the case selectors and the state- 
ment tags must be of assignment compatible types. 


It must be stressed that the selection specifications which 
the component statements are tagged with are not labels in 
the Pascal sense, and as such, cannot be used as the target 
of a GOTO statement, and neither should they appear in 
any label declaration part. 


Examples of CASE Statements 
case wine_type of 


Champagne: — 
Anything goes; 


Cabernet: 
Roast_Lamb; 


Chardonnay: 
Veal_Piccata; 


otherwise: 


Hamburger; end; 


WHILE .. DO STATEMENTS 


A WHILE statement controls repetitive execution of 
another statement until evaluation of a Boolean expression 
becomes false. 


<while statement> ::= while <expression> do <statement> 
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The <statement> is repeated while the value of <expres- 
‘sion> remains true. The <expression> must be of type 
Boolean. When <expression> becomes false, control 
passes to the statement after the WHILE statement. If the 
value of <expression> is false at the time that the 
WHILE statement is encountered for the first time, the 
subordinate statement is never executed at all. Thus the 
WHILE statement provides a means to ‘‘do nothing grace- 
fully’’. Contrast this behavior with the REPEAT statement 
described below. 


Example of WHILE Statement 


while bytes_to_go > 0 do 
begin 
if bytes_to_go <= BlockSize then 
TransferLength := bytes_to_go 
else 
TransferLength := BlockSize; 
D oTransfer; 
bytes_to_go := bytes_to_go - TransferLength; 
BlockNumber := BlockNumber + 1 
end 


REPEAT .. UNTIL STATEMENTS 


The REPEAT statement controls the repetitive execution 
of a list of statements. The statements are executed until 
the condition at the end of the statement evaluates to true. 
The form of a repeat statement is: - 


<repeat statement> ::= repeat <statement list> until <expression> 
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The expression controlling repetition must be of type 
Boolean. The statement between the repeat and until sym- 
bols is executed repeatedly until the expression becomes 
true. Note that the body of a REPEAT statement is always 
executed at least once, since the termination test is at the 
end. Contrast this behavior with the WHILE statement 
described in the previous subsection. 


Example of REPEAT Statement 
repeat 
consume_glassfull; 


refill_glass; 
until (Champagne _ Volume <= 0) or (Consumer = Blotto} 


FOR .. DO STATEMENTS 

The FOR statement executes its subordinate statement 
repeatedly, while a progression of values is ee to a 
control variable of the FOR statement. 


<for statement> ::= _ 
for <control variable> := <for list> do <statement> 


<for list> ::= <initial value> to <final value> 
| <initial value> downto <final value> 


<control variable > ::= <identifier> 


<initial value> ::== <expression> 
<final value> ::= <expression> 
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The control variable is set to the initial value. After every 
iteration the control variable is either incremented (to) or 
decremented (downto) until its value is greater than or less 
than the final value. . 


The control variable, the initial value, and the final value, 
must all be of the same scalar type or a subrange of that 
scalar type. No part of the statement controlled by the © 
FOR statement may alter the control variable during the 
execution of the FOR statement. 


Neither the control variable, nor the initial value, nor the 
final value, may be of type real. The control variable must 
be local to the procedure or function that contains the FOR 
statement. 


The value of the control variable is undefined on normal 
termination from the FOR statement. If the FOR state- 
ment is exited prematurely (via a GOTO statement), the 
value of the control variable is defined. | 


Examples of the FOR Statement 
{ initialize an array to zero } 


for index := 1 to 100 do 
row|index] := 0 


{ scan from the end of an array } 
for where := 200 downto 1 do 


if what|where] = thing then 
foundit :—= true 
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5.6 THE WITH STATEMENT 


The WITH statement provides a shorthand notation for 
referring to fields in a record. The WITH statement 
effectively opens the scope that contains field identifiers of 
a specified record variable. 


<with statement> ::= 
with <record variable> {,<record variable>} 
do <statement> 


Within the body of the WITH statement, fields of the 
specified record variable do not need to be qualified by the 
name of the record. 


If there is a local variable ‘x’ and a field ‘x’ in a record ‘r’ 
which is the subject of a WITH statement, the statement: 


with r do 


hides the local variable ‘x’ until the end of the WITH state- 
ment. 


A WITH statement which has multiple <record variable> 
fields is interpreted as nested WITH statements. The state- 
ment: 


with record_1, record_2, record_3 do 
is equivalent to the statement: 
with record_1 do 

with record_2 do 


with record_3 do 
bases statement ..... 
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Example of the WITH Statement 


var 
TreeTop: Sym Tree; 


-with TreeTop do 
begin 
LeftNode := nil; 
RightNode := nil 
end { with } 


This is a shorthand for the following statements 


-TreeTop.LeftNode := nil; 
TreeTop.RightNode := nil 


5.6 THE GOTO STATEMENT 


The GOTO statement names as its successor, a labelled 
statement designated by a label. 


Leste statement> ::= goto <label> 
The following should be noted eocevaie the GOTO state- 
ment and the label that it designates: _ 


- The scope of a label is the procedure in which that label is 
defined and all nested procedures and functions. Therefore 

itis not possible (nor valid) to jump into : a procedure when 
no. activation of — procedure exists. 


_ Every label in a procedure must be declared: ‘in: the label 
declaration part at the head of the procedure. | 


Example of GOTO Statement | 


if status = error then 
goto 9999 | { exit to end of procedure } 
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INPUT AND OUTPUT 


Input and Output facilities allow a Pascal program to com- 
municate with the world outside the computer system on 
which it runs. 


SVS Pascal supports the input-output facilities as defined by 
standard Pascal, and additionally supports untyped (block 
access) files, interactive files, random access to typed files 
and unit input-output (direct access to the devices on the 
system). | 


6.1 GENERAL FILE HANDLING PROCEDURES 


‘ This Section covers the standard Pascal: procedures for han- 
dling files of any type. The four supplied procedures are 
GET, PUT, RESET and REWRITE. 


THE FILE BUFFER VARIABLE 


A Pascal file of some_type is a sequential file; its com- 
ponents appear in strict sequential order (ignore the SEEK 
procedure for the duration of this discussion). Writing 
implies appending a component to the end of the file. 
Reading implies that the next component in sequence is 
obtained from the file. The following discussion applies 
only to typed files. | | | 


Associated with each typed file variable there is an implicit 
buffer variable, often called the file ‘‘window’’. The buffer 
variable can be thought of as a place holder where the 
current file component is held. The buffer variable holds 
the next available component when reading. When writing, 
it holds the component that will be appended to the file by 
a PUT procedure call. 
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For a given file variable ‘f’, the buffer variable is refer- 
enced by the notation ‘f*’. Consider the following declara- 
tions: 


type 
whammo = file of gobion; 


var 
frammis: whammo; 
Curcomp: gobion; 


When the file ‘‘frammis’’ is opened for reading via the 
RESET procedure call, the first component of the file is in 
the buffer variable. An assignment statement of the form: 


CurComp := frammis’; 


assigns the contents of the buffer variable to the variable 
‘‘CurComp’’. The contents of the buffer variable then 
become undefined. The next component from the file is 
moved into the buffer variable by a GET procedure call. 


When the file ‘‘frammis’’ is opened for writing via the 
REWRITE procedure call, the buffer variable is undefined. 
An assignment of the form: 


frammis* := CurComp; 


assigns the value of the variable ‘‘CurComp”’ to the buffer 
variable. A subsequent PUT procedure call appends the 
contents of the buffer variable to the file ‘‘frammis’’. The 
contents of the buffer variable become undefined until 
another assignment defines it. 
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For files of type interactive, the handling of the buffer vari- 
able is different. In standard Pascal, when a file is RESET, 
the first element of the file is read and placed in the file 
buffer variable. This means that the system would expect 
the user to type a character at the terminal, else the system 
would ‘‘hang’’. Thus a’: RESET on an interactive file does 
not perform an immediate GET. This affects the way that 
EOLN functions. When an end-of-line is read, EOLN 
becomes true and the character read is a space. 


GET — GET COMPONENT FROM FILE 


The procedure GET obtains the next element from a file 
(assuming there is a next element to be obtained). A call 
on the GET procedure of the form: 


GET(file) 


advances the current file position to the next component in © 
the file. The value of this component is then assigned to 
the buffer variable file’. 


If there was no ‘‘next component’ in the file, the value of 
the buffer variable is undefined and the predicate EOF(file) 
becomes true. 


If the predicate EOF(file) is already true, a GET(file) (in 
other words, trying to read past end-of-file) has an 
undefined result. 


PUT — APPEND COMPONENT TO A FILE 
A call on the PUT procedure of the form: 
PUT(file) 
appends the value of the buffer variable file” to the file 
‘*file’’. The value of file” becomes undefined after the call 


to PUT. The predicate EOF(file) becomes true after the 
PUT. 
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If the predicate EOF(file) was false before the call to PUT 
(in other words, there were intervening GET’s on the file), 
the call to PUT has an undefined result. 


RESET — OPEN AN EXISTING FILE 
A call to the RESET procedure of the form: 


RESET(file, string |, buffering option] ) 


opens the file named ‘“‘string’’ and positions it at the begin- 
ning of the file. If the file variable had previously been 
opened, access to the previous file is lost, and no close or 
buffer flushing is done. For a proper closing of any opened 
file, a specific call to CLOSE must be done. If the file is not 
empty, the first element of the file is assigned to the buffer 
variable file” and the predicate EOF(file) becomes false. If 
the file is empty, the buffer variable file” is undefined and 
the predicate EOF( file) becomes true. 


If the file is an interactive file, RESET does not read the 
first element of the file. 


SVS Pascal requires a second parameter to RESET. This 
parameter is the name of an existing disk file or device. 
The parameter takes the form of a string constant or vari- 


able. 


The third parameter to RESET is an option to determine 
whether the file is buffered or unbuffered. The buffering 
option may be specified as the keyword BUFFERED or 
UNBUFFERED, and it is described in the subsection fol- 
lowing REWRITE, below. 
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REWRITE — CREATE OR OVERWRITE A FILE 


The REWRITE procedure creates a new file of a specified 
name and discards any existing file of the same name. 
Thus a call of the form: 


REWRITE(file, string [, buffering option] ) 


discards the current value of the file variable “file”, 
effectively creating a new file. The value of the buffer vari- 
able ‘‘file’’ is undefined and the predicate EOF(file) 
becomes true. 


If the variable had previously been opened, access to the 
previous files is lost, and no close or buffer flushing is 
done. For a ‘proper’ closing of any opened ak a pepeane 
call to close must be done. , 


SVS Pascal requires a second parameter to REWRITE. 
This parameter is the name of a disk file. The parameter 
can be a string variable or constant. 


The third parameter to RESET is an option to determine 
whether the file is buffered or unbuffered. The buffering 
option may be specified as the keyword BUFFERED or 
UNBUFFERED, and it is described in the subsection 
below. 


THE BUFFERING OPTION ON RESET 
AND REWRITE 


The optional ‘‘buffering option’’ parameter to RESET and 
REWRITE can be specified as either BUFFERED or 
UNBUFFERED. On some operating systems, there is a 
significant difference in throughput between buffered and 
unbuffered input output. 


Normally, buffered input output is much more efficient 
than unbuffered input output. But, there can also be 
undesirable side effects in buffered input output, most not- 
ably that output does not appear at a terminal until a full 
buffer has been collected. 
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The ‘‘buffering option’’ parameter provides a means to 
request either buffered or unbuffered input output for the 
file specified in the RESET or REWRITE request. A given 
operating system might well override the request, depend- 
ing on the nature of the device on which the file resides. 
The standard situation is unbuffered input output, in the 
absence of the 


6.2 TEXT FILE HANDLING PROCEDURES 


Pascal provides standard procedures for controlling text-file 
input and output. These procedures apply to files of type 
text or interactive. 


READ AND READLN INTRINSICS 


READ and READLN read character strings representing 
numbers from a textfile and convert them into their inter- 
nal representations. There is more on converting numbers 
later in this subsection. 


READ (vy, Voy vy.) 

is equivalent to a 
READ (input, Vp Vor: on v,) 
READ (file, v Vy» Voy vy V n) 


is equivalent to a sequence of READ procedure calls as fol- 
lows: 


READ (file, v,); 


READ(file, vod; 
READ (file, v~) 
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If ‘ch’ is a variable of type char, the two programs 
displayed here are equivalent: 


var var 


ch: char; ch: char; 
rasp: file of char; rasp: file of char; 
READ(rasp, ch) ch := rasp’; 
GET( rasp) 
end end 


If ‘v’ is a variable of type integer, any subrange of integer, 
real, or double, the procedure reference: 


READ (file, v) 


reads a sequence of characters from the file referenced by — 
‘‘file’’. The sequence of characters should form a valid 


number according to Pascal’s rules for numbers (described _ 


in Section 1). Note that if a real or double number con- 
tains a decimal point, there must be at least one digit on — 
either side of the decimal point. When the number is 
formed, it is then assigned to the variable ‘v’. Blank lines 
and spaces preceding the number are skipped in the file. 
Reals are read in the same way as integers. Booleans cannot 
be read via a READ or READLN eall. Structured types 
cannot be read. 


If the sequence of characters read from the file do not form 
a valid number according to the syntax rules, one of two 
actions are taken: if I/O checking is on, the Pascal run-time 
system issues an error diagnostic; if I/O checking is off, 
READ or READLN return zero (0) and the IORESULT 
code is set. See Appendix A: Messages from the Pascal Sys- 
tem for a list of I/O error codes. 
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READ (from a file of any type) 


The READ procedure can also read from a file of any type. 
A READ procedure call of the form: 


READ (file, Vy» Voy oy v3 
is equivalent to the sequence: 


v, := file’; GET(file); 
Vo i= file’; GET(file); 


vf o= file’; GET(file); 
GET( file); 


99 


where the ae are the list of variables to read into. 


Note that the type of each variable in the list must be 
identical to the type of the elements in the file. 


WRITE AND WRITELN INTRINSICS | 


The WRITE and WRITELN intrinsics append character 
strings to a textfile. Usually the character strings are gen- 
erated by converting one or more WRITE parameters (see 
below) from their machine representations into external 
representations. 


The procedure WRITELN differs from the procedure 
WRITE only in that WRITELN sends an end-of-line to the 
output file after the write is complete. 
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<write intrinsic> ::= WRITE(<file> <write parameters>); 


<writeln intrinsic> ::== WRITELN( <file> <write nea 
|WRITELN; 


<file> ::= <file variable>, 


<write parameters> ::= <write parameter> {, <write parameter>} 


The <file> parameter in all cases is a file variable which 
refers to the file on which to append character strings. If 
the <file> parameter is omitted, output is written to file 
output (the computer standard output). 


WRITE PARAMETERS 


The WRITE and WRITELN procedures can control the 
format of the individual elements that are written. Each 
parameter to WRITE or WRITELN is of the form: 


<write parameter> ::== <element> 
| <element>:<field width> 
| <element>:<field width>:<fraction size> 


<element> ::= is the value to be written. 


(see descriptions below) 
@ 


<field width> ::= <integer expression > 


<fraction size> :== <integer expression> 


<element> is the value to be written. It may be of type 
char, integer, real, double, Boolean, string or packed array 
of char. 


<field width> and <fraction size> are optional. If 
<fraction size> is present, <field width> must also be 
present. 
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<field width> specifies the size of the output field into 
which the converted value is written. If the converted 
value is smaller than <field width>, the field is filled out 
with leading spaces. 


<fraction size> is only applicable when the <element> is 
of type real or double (see below). 


Integer Element 


The value of the integer expression is converted into a 
string representation of that expression in the base 10. The 
resulting string is placed right justified into the output field 
if a field width greater than needed is specified. If <field 
width> is too small to contain the resulting character 
string, the output field is expanded until it can contain the 
output string. If the integer expression is negative in value, 
a minus sign precedes the leftmost significant digit in the 
field. If the integer expression is positive, no space pre- 
cedes the character string unless the <field width> is 
greater than the number of characters to be printed. If 
<field width> is omitted, the default field width is the 
minimum required to print the value. 


Real or Double Element 


A real or double element is converted much the same as an 
integer element, except that there can be a specification for 
the number of digits after the decimal point. In this case, 
<fraction size> specifies the number of digits to appear 
after the decimal point. The converted value is then writ- 
ten in so called ‘‘fixed point’’ notation. If <fraction size> 
is omitted, the converted number is written out in the 
floating or exponential notation. The diagram below illus- 
trates the different forms of writing real elements. 
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WRITE( number:f) 
results in a number of the form: 
+xX.yyyyyE+ nn 


where ‘f’ is the total number of characters in the converted 
number. There is one digit before the decimal point and 
‘f’-7 digits after the decimal point. 


WRITE( number:f:w) 


results in a number of the form: 


XXX.yyy 


where ‘f’ is the total number of characters (including the ’ 
decimal point), and ‘w’ is the number of digits after the | 
decimal point. | 


The extreme real and double values are printed as follows: 
positive infinity prints as a row of + signs; negative infinity — 
prints as a row of minus (-) signs; NaN (Not a Number) 
prints as a row of ? marks. 


Scalar Subrange Element 


A write parameter which is 3, scalar subrange is handled 
exactly as the scalar range of which it is a subrange. 
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Character Element 


A write parameter which is a character is output as a single 
string character right justified in the output field. If <field 
width> is greater than one (1), the field is filled with lead- 
ing spaces. 


Furthermore, an <element> of type char means that the 
two programs displayed below are equivalent. 


WRITE(file, <char expression>:<field width>) 
is equivalent to 


file*:= °°; { these two statements repeated ere } 
PUT(file);. {<field width> - 1 times } 


file* :== <char expression>; PUT(file) 


String Element or Packed Array of Char 


A write parameter which is a string or packed array of char 
expression is placed right justified into the output field with 
leading spaces. If <field width> is less than the dynamic 
length of a string expression, the output field is expanded 
to contain the string. If <fieldwidth> is less than the 
length of a packed array of char expression, then only the 
first <fieldwidth> characters are output. If <field width> 
is omitted, the output field is the minimum length needed 
to hold the string. | 


Boolean Element 


An expression which is of type Boolean is written as one of 
the predefined identifiers False or True. If <field width> 
is greater than the length of the resulting string (5 for 
‘False’; 4 for ‘‘True’’), the string is written with leading 
spaces. If <field width> is less than the length of the 
string, the field is expanded to contain the string. If the 
value of the expression is not a valid Boolean, the string 
‘‘UNDEF”’ is printed. 
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Hexadecimal Output 


Integer expressions may also be output in hexadecimal 
representation. This is accomplished by appending the 
identifiers hex to the right of the value, or in the call that a 
field width is given, after. the field width. Exactly <field 
width> characters are output. Since all such expressions 
are converted to type longint prior to output, a maximum 
of 8 hexadecimal digits are printed. Any extra characters 
are blank. If less than 8 characters are specified, then the 
least significant portion of the value is output. The default 
field width is 8. 


Pointer Output 


Pointer may also be written to text files. Their value is 
output in hexadecimal notation. An optional field width is 
accepted, the default width being 8. 


WRITE (to file of any type) 


The WRITE intrinsic can also write to a file of any type. A 
WRITE procedure call of the form: 


WRITE(file, EXPT), EXPlg, -++5 expr, ); 
is equivalent to the sequence: 


file* :== expr,; PUT(file); 
file* :—= expo; PU T( file); 


file* := expr, PU T(file) ; 


where the expr, are a list of expressions to be written to 
the file. 


Note that the type of each expression in the list must be 


the same as the type of the elements in the file. Integer 
subranges are converted to the proper length as needed. 
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SEEK — RANDOM ACCESS TO TYPED FILES 


SVS Pascal supports random access to files of specific types. 
The SEEK procedure has two parameters, namely the file 
variable and an integer specifying the record number to 
which the file window should be moved. SEEK can only be 
applied to typed files that are not text files. The format of 
SEEK is: 


procedure SEEK(file: file_type; position: longint); 
file is the file variable for the specified file. 


position is the number of the record to which the file 
window is to be moved. Records are num- 
bered sequentially from zero (0). 


SEEK moves the file window to the ‘‘position’’th record in 
the file specified by ‘‘file’’. The EOF and EOLN predicates 
are set to false. | 


An attempt to PUT a record beyond the physical end of file 
sets the EOF predicate true. The physical end of file is the 
place where the next record in the file would overwrite 
another file on the storage device. 


If a GET or PUT is not performed between two SEEK pro- 
cedures, the contents of the file window are undefined. 


CLOSE — CLOSE A FILE 


CLOSE removes the association of a file variable with an 
external file. A CLOSE procedure call marks the file as 
closed. The file variable for that file is then undefined. If a 
file is already closed, a CLOSE call does nothing. The form 
of the CLOSE procedure is: 


procedure CLOSE(file [, close_option] ); 
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file is a file variable. 


close_option is an ‘optional parameter that controls the 
disposition of the closed file. 


‘fclose_option’’ can be one of the following: 


normal The state of the file is set to closed. If the 
file was opened with a RESET procedure 
call, the ‘‘normal’’ option means that the 
file is retained in the file system. If the file 
was opened with a REWRITE procedure 
call, the ‘‘normal’’ option means that the 
file is removed from the file system under 
operating systems where the old file of the 
same name is still intact. The “‘normal’’ 
option is the default. 


lock Makes the file permanent in the disk sys- 
tem if it is a disk file. Any existing file of 
the same name is removed from the file 
system. If the file is not a disk file, a . 
‘‘normal’’ close is done. | 


purge Deletes the file from the file system if the 
file is on a block-structured device. If the 
file associated with ‘‘file’’ is a device 
instead of a block-structured volume, the 
device is set off-line. If no physical device 
or file is associated with ‘‘file’’, a ‘‘nor- 
mal’’ close is done. , 


crunch Is the same as the ‘‘lock’’ option but in 
addition, truncates the file at the point at 
which it was last accessed. That is, the end 
of the file is the position at which the last 
PUT or GET was performed. This option 
only works under certain operating sys- 
tems. 
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PAGE — SKIP TO NEW PAGE 


The procedure PAGE may be used to skip to the top of a 
new page on a text or interactive file. The form of PAGE 
is: 


procedure page( file: text); 


A call to PAGE actually does not guarantee that the device 
being written to will advance to a new page. Instead it out- 
puts a single ASCII for feed character, ‘OC’, to the 
specified file. In most cases this will result in a form feed. 


6.3 BLOCK INPUT OUTPUT INTRINSICS 


BLOCKREAD and BLOCKWRITE support random (block 
level) access to untyped files only. A block is 512 bytes of 
data regardless of the actual file system blocking factor. 


BLOCKREAD — READ BLOCK FROM FILE 


BLOCKREAD reads specific blocks from an untyped file. 
The function definition is: 


function BLOCKREAD (file, where, blocks [,relblock]): integer; 
file is an untyped file. 


where is a variable of any type. The variable 
must be large enough to contain the 
number of blocks requested. 


blocks is an integer value which specifies the 
| number of blocks to read from the file. 


relblock is an optional parameter. If ‘‘relblock’’ is 
present, it represents the block number at 
which to start reading from. Blocks are 
numbered relative to zero (0). 
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If ‘‘relblock’’ is omitted, it implies a sequential read of the 
next block in the file. When the file is opened, or when 
the file is reset, the starting block number is set to zero 
(0). Thus a BLOCKREAD with the ‘‘relblock’’ parameter 
omitted starts reading from block zero, and reads sequen- 
tial blocks on every subsequent call that has the ‘‘relblock’’ 
parameter omitted. 


The return value of BLOCKREAD is the number of blocks 
actually read. If the value is zero, it indicates either end- 
of-file or an error condition. If the value is greater than 
zero, it indicates the number of blocks read. If the return 
value is less than the number of blocks specified in the 
function call, it is possible that an end-of-file was encoun- 
tered during the read. 


BLOCKWRITE — WRITE BLOCK TO FILE 


BLOCKWRITE writes specific blocks to an untyped file. 
The function definition is: 


function BLOCKWRITE(file, where, blocks [,relblock] ): integer; 


file is an untyped file. 

where is a variable of any type. It must be large 
enough to contain the number of blocks to be 
transferred. 

blocks is an integer value which specifies the number 


of blocks to write to the file. 


relblock is an optional parameter. If ‘‘relblock’’ is 
present, it represents the block number at 
which to start writing to. Blocks are num- 
bered relative to zero (0). 
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If ‘‘relblock’’ is omitted, it implies a sequential write of the 
next block in the file. When the file is opened, or when 
the file is reset, the starting block number is set to zero 
(0). Thus a BLOCKWRITE with the ‘‘relblock’’ parameter 
omitted starts writing to block zero, and writes blocks 
sequentially on every subsequent call that has the ‘‘rel- 
block’’ parameter omitted. : 


The return value of BLOCKWRITE is the number of 
blocks that were actually written. If the return value is 
zero or a less than the number of blocks specified, it means 
either that there was an error or that there is no room for 
the blocks on the device. | 


6.4 IORESULT — RETURN INPUT-OUTPUT 
RESULT 


IORESULT is a function that can be used after an input- 
output operation to check on the validity of the operanau, 
The function definition is: 


function IORESULT: integer; 


Use of the IORESULT function is only appropriate if I/O 
checking has been turned off. The $I- compiler option 
turns checking off. If I/O checking is on (as it is by 
default) or turned on via the $I1+ compiler option, any I/O 
error generates a non-recoverable run-time error. 


If I/O checking has been turned off, I/O errors do not gen- 
erate run-time errors, and the programmer can then use 
IORESULT to check the completion status of each input 
output operation. 


The value of IORESULT is zero if an input-output opera- 
tion has a normal completion. If the value is non-zero, it 
indicates some form of error has occurred. See Appendiz A: 
Messages from the Pascal System for a list of error codes. 


6-18 3/10/86 


Pascal Input and Output 


Example Using I|ORESULT 
{$I-} { Turn off the I/O Checking } 
type 
data_file = text; 
var | 
data: data_file; 


RESET( data, ’ /source /printfile’); 
if IORESULT <> O then begin { <> 0 = problem } 
REWRITE (data, ’/source/printfile’); { so create it } 
if IORESULT <> 0 then begin 
WRITELN(’Cannot create Epa /printfile’ ); 
HALT 
end; 
end; 


In the above example, the $I- comment toggle turns off the 
I/O checking for that part of the program. The IORESULT 
function returns a non-zero value to mean that the file © 
could not be RESET, so the program then tries a | 
REWRITE statement. If that fails, then the program halts. 


IORESULT is cleared by each I/O operation. Thus, the 
sequence: 


read(x); 
writeln(’The value of IORESULT is ’ JORESULT); 


does not print the IORESULT set by the read, since the 
write of the string clears IORESULT before it is printed in 
the writeln. The proper technique for accessing IORESULT 
is as follows: 


read(x); 


iovariable :—= IORESULT; 
writeln(’The value of IORESULT is ’ ,iovariable); 
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Even more subtle is the following situation: 
readIn(x); 
which is equivalent to 


read(x); 
readln; 


in which the readln will clear the IORESULT associated 
with the read before it can be examined by the program. 
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PROGRAM STRUCTURE 


A Pascal program is a collection of declarations and state- 
ments which is meant to be translated, via a compilation 
process, into a relocatable object-module. Object modules 
obtained from other, separate compilations can be com- 
bined, via a linking process, into a form suitable for execu- 
tion. 


The collection of declarations and statements may also 
include compiler directives which control the compilation, 
and do not change the meaning of the program. 


The results of compilations, the object modules, are some- 
times referred to as ‘‘.obj’’ files since this is the normal file 
name extension for such files. SVS Pascal is very flexible 
in the mechanisms for creating ‘‘.obj’’ files which are not 
complete executable programs and combining them in the 
linking process. 


The unit mechanism, derived from UCSD Pascal, is pro- 
vided for secure independent compilation. Using this 
mechanism, a group of declarations and procedures can be 
compiled into an ‘‘.obj’’ file. This ‘‘.obj’’ file can be used 
by other Pascal compilations to insure that interfaces are 
consistent, and subsequently linked with the ‘‘.obj’’ files 
created in these compilations. Alternatively, independent 
compilation via the external (or cexternal) mechanism can 
be used for insecure independent compilation of Pascal rou- 
tines, or for linking Pascal to routines written in other SVS 
languages or assembly language. 
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In some operating environments ‘‘.obj’’ linkable object 
code is further processed into a form of linkable object 
code in the format expected by the host operating system. 
This second form of linkable object code will be referred to 
as ‘‘.o’’ object code, since this is a common file name suffix 
for these files. Under some operating systems compilations 
of SVS Pascal programs (and units) routinely are processed 
into ‘‘.o’’ files, in which form separately compiled pieces of 
the program are combined and in which form the run time 
libraries are linked in with the user’s programs. In other 
operating system environments separately compiled Pascal 
programs (and units) and the run time libraries are linked 
in ‘‘.obj’’ form creating a single ‘‘.o’’ file in the format of 
the target system. 


The discussion in this chapter describes the properties of 
‘* obj’’ files. On systems in which the ‘‘.obj’’ file is rou- 
tinely processed into ‘‘.o’’ form, there is always an operat- 
ing procedure or option which will make the ‘‘.obj’’ form 
of the object code available for the purposes described here. 


7.1 COMPILATION UNITS 


Before describing in detail the various compilation units 
and their components, the following are some examples of 
compilation units with accompanying explanations. 


| Example of Complete Program Compilation Unit 


program complete; 
var i: integer; 
begin 
ean Of 
writeln(i); 
end. 


The above program is complete and can be compiled and 
executed. It does not make use of any separate compila- 
tion. 
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Example of Program with Insecure Separate Compilation 


program missingsomething; 
var i: longint; 


procedure getvalue(var fi: longint); external; 


procedure callme; 
begin 

writeln(’I got called!’); 
end; 


begin 
getvalue(i); 
writeln( i); 
end. 


This example illustrates the call on an external procedure 
called getvalue which will have to be supplied in the linking | 
process in order to make a complete executable program. 
It is possible that this external procedure has been written 
in assembly language, or in SVS FORTRAN, or in Pascal. 
(Note: if the procedure had been written in SVS C, the cal- 
ling sequence to the external would have to be different 
and the programmer should have coded getvalue as a. 
cexternal instead of an external). 


Regardless of the origin of getvalue, the Pascal system will 
make no attempt to match parameter types, etc. between 
the call and the code called. Pascal is satisfied that the 
external declaration describes the interface and it is the 
programmer’s responsibility to insure that the receiving 
subroutine is suitable. Thus, this method of independent 
compilation is referred to as insecure. 


The example also contains a procedure callme which may 
well be referenced in some other compilation unit as an 
external. This other compilation unit must not, however, 
contain a main program, since it is not allowed to link 
together object files containing more than one main. 


3/10/86 | 7-3 


Program Structure Pascal 


Example of a Simple Unit 


unit IHideAndHoldAndPrintx; 
interface 
var publicinteger: integer; 


procedure setx( fx: real); 
procedure printx; 


implementation 
var Xx: real; 


procedure setx; 
begin 

X cea 1k: 
end; 


procedure printx; 
begin 
writeln(x); . 
end; 
end. 


This example creates a unit with two procedures in its pub- 
lic part and a private variable. The ‘‘.obj’’ created by the 
Pascal system for this unit contains linkable object code for 
the two procedures and contains the source code for the 
interface section of the unit. Let us assume that the 
created object code for this unit is named hide.obj. 


When another compilation uses this unit (see example 
below), which is to say uses the ‘‘.obj’’ code of this unit, 
the interface source code declarations are extracted from 
the unit’s ‘‘.obj’’ file and processed to insure that interfaces 
match properly. This is why the unit mechanism is referred 
to as secure,independent compilation. 
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Example of Program Using a Unit 


program UseUnit; 

uses {$U hide. obj} IHideA ndHoldA ndPrintX; 
begin 

publicinteger := 99; 

setx(17.3); printx; 

writeln( publicinteger); > 
end. 


This program has available the variables in the interface 
section of the referenced unit as well as the procedures | 
declared there (by actual inclusion of the source code which 
is part of the unit’s ‘‘.obj’’ file). The Pascal system checks 
and enforces that the interfaces are matching between this 
compilation and the unit. 


The Pascal system must be told what the file name of the 
‘* obj’ of the referenced unit is. This is done using the $U 
directive. In the event that more than one unit is to be 
used, the following method should be utilized: 


uses {$U filel.obj} FirstUnit, 
{$U file2.obj} SecondUnit; 


The order in which these units are used may be important. 
If the SecondUnit unit used FirstUnit when it was com- 
piled, it more than likely depended on FirstUnit to make its 
own declarations meaningful. In this event, the order must 
be as shown. 


The examples shown here illustrate only a few of the possi- 
bilities. Units can use units. Global procedure and func- 
tion names in programs and interface procedures and func- 
tions in units become available for reference via the exter- 
nal mechanism, ete. 


The key to properly using units is to remember that the 
interface information is included in the using compile as 
source declarations. This fact determines the order in 
which compilation must be done and what must used 
where and in what order. 
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99 


On systems in which ‘‘.obj’’ and ‘‘.o’’ object code is avail- 
able, the form of the object code which is used by a uses 
statement must always by the ‘‘.obj’’ form. Other linkage 
of separately compiled compilation units may, or may not, 
be possible using ‘‘.o’’ object code. See Appendix F and G 
for details relating to specific operating environments. 


The more formal details of compilation units follows. 


A compilation unit is either a program (a main program), 
or aunit. A complete executable program consists of a sin- 
gle program and zero or more units. 


A program is a main program, consisting of all the state- 
ments between a program statement and an end. statement. 
The main program is described in more detail later in this 
chapter, in the section entitled Program Heading. 


A unit is a collection of declarations and statements pack- 
aged so as to make parts of the declarations in the unit 
public to other parts of the same compilation unit or 
separate compilation units. Units are useful for sharing 
common code among different programs or as a means to 
avoid compiling a huge program every time one line is 
changed. Units are compiled separately. 


A program or unit that uses another unit is known as a 
host. A host uses other units’ declarations by naming 
those units in uses declarations. The uses clause appears 
after a program heading or it appears in a unit at the start 
of the interface section (see below). 


A unit contains two major parts, namely an interface part 
_which describes how other units view this unit, and an 
implementation part which supplies the actual body of code 
to implement this unit. 
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<unit> ::== unit <identifier>; 
<interface part> 
<implementation part> 
end. 


<interface part> ::= interface 
<uses clause > ; 
{ <constant definition part> 
<type definition part> 
<variable definition part> } 
< procedure and function declaration part> 


<implementation part> ::= 
implementation 
{ <label declaration part> 
<constant definition part> 
<type definition part> 
<variable definition part> } | 
<procedure and function declaration part> 


<uses clause > ::= uses <identifier> {,<identifier> } ; 


The interface part declares constants, types, variables, pro- 
cedures and functions that are globally available. A host 
program that uses that unit has access to those objects just 
as if they had been declared in the host program itself. 


Procedures and functions declared in the interface part con- 
sist only of the procedure or function name and the 
description of the formal parameters. These declarations 
serve as procedure or function prototypes - there is no exe- 
cutable code associated with them. This is equivalent to a 
forward declaration except that no forward attribute is 
_ allowed. 


The implementation part follows the interface part. Local 
objects are declared first, then the global procedures and 
functions are declared. Formal parameters and function 
result type declarations are omitted from the implementa- 
tion part, since they were already declared in the interface 
part. 
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A unit can consist entirely of interface declarations (con- 
stants, types and variables). There need not be any pro- 
cedure or function declarations. 


The declarations in the interface part of a unit are accessi- 
ble in another compilation only after that unit is specified in 
a uses statement of that compilation. The uses clause is 
used in conjunction with the $U compiler option. The unit 
will be searched for the file specified in the most recently 
appearing $U option. The file searched will be the file 
name with and ‘‘.obj’’ suffix. Thus the unit must have 
been previously compiled. 


The overall layout of a unit is like this: 


unit GanipGanop; 


interface { This part declares the } 
{ interface section } 
uses namesof { This part is optional if } 


other units { GanipGanop does not use any } 
{ things from other units 
{ Note that if any declarations } 
{ imported from other units are } 
{ referenced in the interface } 
{ part of GanipGanop then the } 
{ compilation that uses 
{ GanipGanop must first uses } 
{ that other unit. 
{..... declarations and 
procedure headings 
for the GanipGanop unit. 
All these declarations and procedure 
headings are PUBLIC to other units .....} 


im plementation { This part declares the } 
{ implementation section } 
{..... declarations and 
code for the GanipGanop unit. 
All these declarations and code are 
PRIVATE to GanipGanop .....} 
end. { of the GanipGanop unit } 
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7.2 DECLARATIONS AND SCOPE OF IDENTIFIERS 


Declaratons introduce program objects, together with their 
identifiers, which denote these objects elsewhere in a pro- 
gram. 


<declaration> ::= <label declaration> 
| <constant declaration> 
| <type declaration> 
| <variable declaration > 
| <procedure or function declaration > 


The program region (over which all uses of an identifier are 
associated with the same object) is called the scope of the 
identifier. Within a compilation unit, such a region is 
either a unit body or a block body. In the case of a unit, 
the scope is a declaration list. In the case of a block, the 
scope is a statement list preceded by an optional declaration 
list. 


The scope of an identifier is determined by the context in 
which it was declared. 


A program or a unit is a static construct intended to control 
the scope of identifiers according to these rules: 


e The scope of an identifier declared at the outermost 
level of a program is the body of that program. 


e The scope of an identifier listed in the interface part 
of a unit is the body of that unit, and is also 
extended outwards to any other unit that uses that 
unit. 


e Identifiers declared at the outermost level of the 
implementation part of a unit have the entire body 
of that unit as their scope, but are private to that 
unit. 
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Procedure or function blocks also control the scope of 
identifiers. There are both similarities with, and differences 
from, Programs or units. 


Like programs or units, blocks control the scope of 
identifiers. 


Unlike programs or units, blocks control the processing of 
declarations and determine when the declarations take 
effect. 


The block-structured scope rules are as follows: 


e The scope of an identifier declared in the declaration 
list of a block is the body of that block. | 


e If the scope of an identifier includes another block, 
its scope is extended inward to include the body of 
that inner block, unless the body contains a re- 
declaration of that identifier. 


e An identifier which is declared as a formal parameter 
of a procedure or function has as its scope the body 
of that procedure or function. 


e Field selectors are identifiers introduced as part of 
the definition of a record type for the purpose of 
‘selecting fields of records. The scope of a field selec- 
tor is the record in which it is declared. As with the 
nesting of procedures, the existence of an inner 
scope identifier masks the accessibility of any outer 
identifiers of the same name. Field selectors must 
be unique within the declaration of a record. 


e Identifiers must be unique within the bounds of a 
given scope. 
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7.3 PROGRAM HEADING 


The program statement identifies the main program for a 
Pascal compilation. In SVS Pascal, the program header is 
scanned but otherwise ignored. A program has the same 
form as a procedure declaration except for the heading. 


<program> ::= <program heading> {<uses clause >} <block>. 


<program heading> ::= 
program <identifier> {(<program parameters > )}; 


<program parameters> ::= <identifier> {,<identifier>} 


The identifier following the word program is the program 
name. It has no further meaning inside the program. The 
program parameters are optional. No global identifiers in 
the program may have the same name as any of the pro- 
gram parameters. 


PREDECLARED VARIABLES 


SVS Pascal supplies five pre-declared variables. First there 
are prandate files: 


input is the standard file from which console 
input can be done via READ and 
READLN statements. | 


output is the standard file to which soneele output 

| is directed via WRITE and WRITELN 
statements. 

stderr is the standard error output file. On those 


operating systems which support a separate 
file for error responses, stderr is connected 
to that stream. On those operating sys- 
tems which do not support a separate file 
for error responses, stderr is connected to 
the same place as output. 
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Then there are the two variables associated with obtaining 
arguments from the operating system command line (see 
the next subject heading below): 


arge is a count of the number of arguments supplied 
on the command line. 


argv is an array of pointers to the character strings 
containing the command line arguments. 


ARGC and ARGV - Access to Command Line 


As mentioned above, arge and argv provide access to the 
Pascal program’s command line as the user typed it. arge 
and argv can be considered to be defined by a declaration 
of the form: 


type | 
stringtype = string|anylength]; 
pstring = ‘stringtype; 


var 
arge: integer; 
argv: array[1 .. arge| of pstring; 


Each element of argv contains a separate field from the 
command line that invoked this Pascal program. If arge is 
zero (0), no attempt should be made to reference argv. 
The first element of argv is the first parameter from the 
command line. The name of the command itself may or 
may not be available as the first command line argument 
depending on the operating system under which the pro- 
gram isrun. Avoid assigning to any element of argv. 
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7.4 DECLARATIONS 


LABEL DECLARATIONS 


The label declaration part declares all labels (which tag 
statements) in the statement part of the block. 


<label declaration part> ::= label <label> {, <label>}; 


CONSTANT DEFINITION 

The constant definition part declares all constant names and 
their associated values that are local to the procedure or 
function definition. 


<constant definition part> ::= const <constant definition list> 


<constant definition list> ::= 
<constant definition> {<constant definition>} 


TYPE DEFINITION 


The type definition part contains all the type definitions that 
are local to the procedure or function definition. 


<type definition part> ::= type <type definition list> 


_<type definition list> == <type definition> {<type definition>} 


VARIABLE DECLARATION 


The variable declaration part contains a definition of all the 
variables that are local to the procedure or function. 


<variable declaration part> ::= var <variable declaration list> 


<variable declaration list> ::= 
_<variable declaration> {<variable declaration>} 
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7.6 PROCEDURE AND FUNCTION DECLARATION 


A procedure declaraton or a function declaration associates 
an identifier (the procedure or function name) with a col- 
lection of declarations and statements. A Pascal statement 
can then cause that procedure to be executed (activated) by 
giving its name in a procedure reference statement. A func- 
tion declaration is similar to that of a procedure with the 
additional capability that a function can compute and return 
a value, called the value of the function. A function is 
referenced by giving its name in an expression, when the 
value of the function appears as a factor in that expression. 


The type of value that a function returns is specified when 
the function is declared. The function return value is the 
value last assigned to its function identifier before a return 
is made from the function. Returning from a function 
without ever assigning a value to the function designator 
(for the current activation of the function) produces an 
undefined result (usually with undesirable results from the 
- programmer’s viewpoint). 


Using a procedure or function identifier within the declara- 
tion of that procedure or function implies recursive activa- 
tion of that procedure or function, except when a function 
identifier appears on the left hand side of an assignment 
statement, (implying assignment to the function variable 
rather than recursive activation - see below). 


<procedure declaration> ::= <procedure heading> <block> 
<block> ::= { <label definition part> 
<constant definition part> 
<type definition part> 
<variable declaration part> } 
<procedure and function declaration part> 
<statement part> . | 
<statement part> ::= begin <statement list> end 


<statement list> ::= <statement> {; <statement>} 
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All the definition and declaration parts above are optional, 
with the exception of the <statement part>. 


SVS Pascal accepts multiple declaration parts in each block 
and unit interface and implementation section. The usual 
declare before usage rules apply. That is, the declarations 
are processed in the order in which they occur, as con- 
trasted with processing all of the constant sections followed 
by all of the type sections, etc. Forward pointer type refer- 
ences are resolved in each type definition part without 
regard to definitions which occur in later declaration sec- 
tions. This feature facilitates the inclusion of files of 
declarations which are logically complete without forcing 
the user to segregate declared items based on whether they 
are constants, types, or variables. 


The procedure heading specifies the identifier that names the 
procedure, and any formal parameters for that procedure. 
Procedure parameters are either value parameters, variable 
parameters, or procedure or function parameters. 


<procedure heading> ::= 
procedure <identifier>; {<attribute>;} 
| procedure <identifier> (<formal parameters>); {<attribute>;} 


<function heading> ::= 
function <identifier>: <result type>; {<attribute >;} 
| function <identifier>(<formal parameters<); {<attribute >;} 


<formal parameters> ::= 
<formal parameter> {;<formal parameter>} 
<formal parameter> ::= 
<parameter group> 
| var <parameter group> 
| <procedure heading> 
| <function heading> 


<parameter group> ::= 
<identifier> {,<identifier>}:<type identifier> 


<atiribute> ::= external | forward | cexternal 


<result type> ::= <simple type> 
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Note that the external, forward, and cexternal attributes 
are optional. 


EXTERNAL AND FORWARD ATTRIBUTES 


A Pascal host can use routines that are separately compiled 
or assembled in languages other than Pascal. To use an 
external routine, the host must make a procedure or func- 
tion declaration for that external routine just as if it is a 
Pascal routine that is declared in this compilation unit or 
another compilation unit. The declaration is then followed 
by the external attribute to indicate that the body routine 
does not appear in the current compilation unit. External 
routines must conform with the Pascal calling conventions 
and data representation methods as defined. in Appendix E: 
Data Representations. 


The cexternal attribute means that the compiler generates 
calls to external procedures in a manner which is compati- 
ble with the SVS C compiler. Another feature of the 
cexternal declaration is that the external name of the pro- 
cedure or function is not coerced to upper case letters, but 
is handled by the system in exactly the case (or combina- 
tion of cases) as provided by the programmer in the cexter- 
nal declaration. 


Pascal. normally dictates that procedures and functions be 
declared before they can be referenced. There are cases 
when program layout makes this impossible, such that a 
procedure or function must be referenced before it can be 
declared. The forward attribute indicates that the particu- 
lar procedure or function declaration consists only of the 
header, and that the body of that procedure or function 
appears later in the program source text, possible after it is 
referenced. A forward-declared procedure or function, 
then, is actually declared in two distinct parts: its header or 
prototype is declared, with the forward attribute, before any 
reference is ever made to it; at some later point in the pro- 
gram source text, its body is declared. At this later point, 
the formal parameter section must not appear. 


7-16 | 3/10/86 


Pascal Program Structure 


PARAMETERS FOR PROCEDURES 
AND FUNCTIONS 


Parameters (also called arguments) provide a dynamic sub- 
stitution method such that a procedure or function can pro- 
cess different sets of data in different activations. 


There is a correspondence between the formal parameters 
declared in a procedure or function heading and the actual 
parameters supplied when the procedure or function is 
activated. 


The procedure or function heading declares a list of formal 
parameters. These are dummy variables that are assigned 
values when the procedure or function is activated. 


A reference to the procedure or function supplies a list of 
actual parameters that are substituted for the formal param- 
eters, which then become local variables initialized to the 
value of the actual parameters. 


There are four kinds of formal parameters: 
e Value parameters. 
e Variable or Reference parameters. 
e Procedure parameters. 


e Function parameters. 


A parameter group without a preceding specifier, implies 
that the parameter is a value parameter. 
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Value Parameters 


Value parameters are those whose formal parameter declara- 
tion has no symbol marking them as one of the other three 
forms. The corresponding actual parameter must be an 
expression. In the body of the procedure or function, the 
formal parameter is initialized to the value of the expres- 
sion at the time the procedure or function is activated. The 
formal parameter is then just like a local variable. The 
value of the formal parameter may be changed by assign- 
ment - the actual parameter remains unchanged. 


Variable Parameters 


Variable parameters, also called reference parameters, are 
those whose declarations start with the symbol var (for 
variable). The actual parameter must be a variable of a 
type which is identical to that of the formal parameter. The 
formal parameter directly represents, and can change, the 
actual parameter’s value during the entire execution of the 
procedure or function. 


var actual parameters must be distinct actual variables. It is 
a programming error to supply the same variable to more 
than one actual parameter in a procedure or function refer- 
ence. 


All index computations, field selection and pointer dere- 
ferencing are done at the time the procedure or function 
reference is made. 
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Procedure and Function Parameters 


Procedure and Funckon parameters are the names and param- 
eter lists of procedures or functions that can be referenced 
by the current procedure. 


These parameters are indicated by the symbol procedure or 
function in the formal parameter declarations. Such pro- 
cedures or functions are called parametric. Actual parame- 
ters to parametric procedures and functions must be of 
identical type to those declared in the formal paomeer 
declarations. 


Examples of Procedure and Function Declarations 
{ a procedure with only value parameters } 


procedure ByTheBook(Section, Verse: integer); 
begin 
Section :== 1; {does not change the caller’s 
version of Section } 
end; 


{ a procedure with variable parameters } 


procedure Change(var winds: integer); 
begin 

winds:= 76;  { Changes the caller’s version } 
end; 


' { the Ackerman function } 


function Ackerman(m, n: integer):integer; 
begin 


if m =O then 
Ackerman :— n+ 1 
else if n =O then 
Ackerman := Ackerman(m - 1, 1) 
else 
Ackerman := Ackerman(m - 1, Ackerman(m, n - 1)) 
end; 
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{ parametric function parameter } 


function Integrate(lo, hi: real; 
what(x: real):real): real; 

var 

start: integer; 

finish: integer; 

point: integer; 

current: real; 

sum: real; 


begin 
start = TRUNC(lo); 
finish :—= ROUND(hi); 
sum := 0.03. 


for point := start to finish do 
begin 
current := point; 
sum := sum + what(current); 
end; 
Integrate := sum / (finish - start); 
end; 
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STANDARD PROCEDURES AND FUNCTIONS 


SVS Pascal (in common with other Pascal implementations) 
supplies a number of standard (built in) procedures and 
functions. This section covers those. The standard pro- 
cedures and functions fall into several logically related 
groups, as follows: 


e String Manipulation 


These intrinsics handle the SVS Pascal dynamic 
string types. 


e Memory Management 


These intrinsics deal with dynamic memory anOce: 
tion and de-allocation. 


e Arithmetic Functions 
e Boolean Predicates 
e Conversion Functions 


e Miscellaneous Low Level Procedures and Functions 


8.1 STRING MANIPULATION FACILITIES 


This section discusses those facilities for manipulating string 
data types in Pascal. For purposes of this section, string 
datatypes are those declared string[n],. for some n, not 
packed array[1..n] of char. The type siringtype utilized below 
should be read as matching any type declared string/n]. 
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Here is a brief summary of the facilities: 


CONCAT concatenate a number of strings into one 
string. | 


COPY extract substring of a string. 
DELETE delete characters from a string. 
INSERT insert characters into a string. 


LENGTH determine the current dynamic length of a 
string. 


POS scan for a pattern within a string. 


SCANEQ and SCANNE 
scan for a specific character within a string. 


LENGTH — DETERMINE STRING LENGTH 


LENGTH is an integer function that returns the length of a 
string expression. The function definition is: 


function LENGTH (source: stringtype): integer; 


LENGTH returns an integer value which is the dynamic 
length of the string source. 


The length of the string ’’ is zero (0). 

_ Examples of LENGTH 
alphabet : = ‘abedefghijklm nopqrstuvwxyz’; ; 
WRITELN( LENGTH ( alphabet),’ ’, 

alphabet/1],’ =’ 

alphabet LENGTH(alphabet)], ’ - 

LENGTH(’’)); | 
the following output is displayed 


26 a Z 0 
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COPY — COPY A SUBSTRING 


COPY returns a stringtype which is a substring of another 
string. The function definition is: 


function COPY(source: stringtype; 
index: integer; 
size: integer): stringtype; 


COPY returns a string which is a substring of the string 
source. COPY extracts size characters from source, starting 
at the character position given by zndez. 


The first character in the string is numbered 1. 
if endex is negative or zero, the result is a null string. 


If wndez is greater than LENGTH (source), the result is a 
null string. 


If index + size is greater than LENGTH(source), the result — 
is a string which extends from index to LENGTH(source). 


Example of COPY 


var 
left: string[ 100]; 
middle: string| 100]; 
right: string[ 100]; 
title: string| 255]; 


title := "Left Side. Middle Part. Right Side.’; 
left :== COPY(title, 1, 10); 

middle := COPY (title, 12, 12); 

right :— COPY(title, 25, 11); 

WRITES left); 

WRITELN( middle); 

WRITELN( right); 


This should generate the output: 
Left Side. 

Middle Part. 

Right Side. 
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CONCAT — CONCATENA TE STRINGS 


CONCAT returns a stringtype result, which is the concate- 
nation of its (string) parameters. The function definition of 
CONCAT is: 


function CONCAT (si: stringtype; 
s2: stringtype; ..... | 
sn: stringtype): stringtype; 


_Each of the Sn is a string variable or a string constant or a 
literal value. There may be any number of source strings, 
each separated by a comma from the next. There must be 
at least two source strings. 


Example of CONCAT 


title := CONCAT(’Here’, ’, there’, ’, and everywhere’); 
WRITELN( title); | 


This should generate the output: 


Here, there, and everywhere 


POS — MATCH A SUBSTRING IN A STRING 


POS is used for string matching. The function definition is: 


function POS (pattern: stringtype; 
inwhat: stringtype): integer; 


POS scans from left to right trying to find an instance of 
the string pattern in the string inwhat If a match is found, 
POS returns an integer value that is the position in wnwhat 
at which the pattern starts to match. 
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If there is no match, the result is zero (0). 


If pattern is longer than inwhat, the result is zero (0), or no 
match. 


If no pattern is the null string, ”, the result is one (1), since 
the null string matches the first position in any string. 


Example of POS 


herbs := Basil, Chervil, Fennel, Tarragon’; 
WRITELN(POS(’Chervil’, herbs), ’ ’, POS(’Nutmeg’, herbs)); 


This should generate the output: 


8 0 


SCANEQ AND SCANNE — SCAN FOR CHARACTER 


SCANEQ and SCANNE search a character array until they 
find (SCANEQ) or do not find (SCANNE) a specified char- 
acter in the array. The function definitions are: 


function SCANEQ(len: integer; what: char; object): integer; 
function SCANNE(len: integer; what: char; object): integer; 


SCANxx scans object for len characters, or until the charac- 
ter what is found (SCANEQ) or not found (SCANNE). 
The result is the offset into object where the scan stopped. 
If the character what is not found (SCANEQ) or is found 
(SCANNE), SCANxx returns the value len. If the len 
parameter is positive, scanning is from left to right; if the 
len parameter is negative, the scan proceeds from right to 
left, and a negative value is returned. 
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Note that the SCANxx functions simply look at bytes in 
memory. They ignore any higher level structure that the 
user might perceive or might have imposed on the object. 
Thus object is simply an address in memory at which to 
begin scanning (or in the case where len is negative, to end 
the scan). Thus, for example, if the programmer were to 
do a SCANEQ on a data type of string[80], the length byte . 
of that string would also be scanned, and the results might 
be unexpected. 


DELETE — DELETE CHARACTERS FROM STRING 


DELETE removes a specified number of characters from a 
string. The procedure definition is: 


procedure DELETE (destination: stringtype; 
index: integer; 
size: integer); 


destination is a string. index and size are integers. 


DELETE removes size characters from destination, seat 
at the position specified by indez. 


If index is greater than LENGTH(destination), there is no 
action taken. 


If either index or size is negative or mere there i is no action 
taken. : 


If index + size is greater than LENGTH(destination), 
DELETE removes all characters from tmdez up to the end 
of the destinaton string. 
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Example of DELETE 


var 
large: string[ 100]; 


large := ’A long exhausting rally, eh what, chaps’; 
DELETE(large, 8, 11); 
WRITELN (large); 


This should generate the output: 


A long rally, eh what, chaps 


INSERT — INSERT CHARACTERS INTO STRING 


INSERT inserts one character string into another character - 
string at a specified place. The procedure definition is: 


procedure INSERT (source: stringtype; 
destination: stringtype; 
index: integer); 


The source string is inserted into the desknaton string at a — 
position determined by the value of indez. : 


If the length of desknaton is less than the value of indez, 
then no action is taken. 


No check is made as to if the length of the result string is 
greater than the maximum length of the destination string. 
The result in such a case is usually not what the program- 
mer intended. 
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8.2 STORAGE ALLOCATION PROCEDURES 


Dynamically allocated storage is held in a large common 
storage pool, called a heap. Storage is allocated from that 
pool by using the procedure NEW. Storage is released back 
to the pool (de-allocated) by using the DISPOSE procedure. 
Alternatively, some Pascal implementations handle memory 
de-allocation via the MARK and RELEASE procedures. 
SVS Pascal provides MARK and RELEASE for compatibil- 
ity. 


NEW is responsible for allocating storage. 


DISPOSE _ is responsible for freeing or releasing storage 
back to the common storage pool. 


MARK provides a means to remember the current 
top of the heap. 


RELEASE releases memory from a Previously MARK’ ed 
point. 


MEMAV<AILdetermines the amount of memory available 
for allocation. 


NEW — ALLOCATE STORAGE 


The procedure NEW allocates dynamically available storage. 
If ‘p’ is a variable of type pointer to ‘T’, NEW(p) allocates 
storage for a variable of type ‘T’ and assigns a pointer to 
that storage to the variable ‘p’. There are two forms of the 
NEW procedure. reference: 


NEW(p) allocates a new variable ‘v’, and assigns the 
pointer reference of ‘v’ to the pointer variable 


p’. If the type of ‘v’ is a variant record, storage 
is allocated for the largest variant of the record. 
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Storage for a specific variant can be allocated by using the 
second form of the NEW procedure, as follows: 


NEW(p, t,, ty,--., t,) 


allocates a variable of the variant, with tag fields t 

t_. The tag fields must be listed contiguously and!in in 
e order of their declaration in the variant record 

type definition. 


If NEW is used to allocate storage for a specific variant 
record, the subsequent call to DISPOSE must use exactly 
the same variant. Any mismatch between the variants 
specified on the call to NEW and those on the DISPOSE 
call can damage the integrity of the heap, causing silica 
behavior at best and system crashes at worst. 


If NEW fails to allocate the requested storage fasaally 
because the storage is not available), the pointer variable 
‘p’ contains the value nil upon return from the procedure. 
In some environments failure to obtain storage results in a 
fatal run time error. Note: Under some operating systems 
processes which grow to very large sizes cause such serious 
performance degradation that the actual exhaustion of 
available memory can take a very significant amount of 
clock time. 
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Example of NEW 


const 
UpperLimit = 255; 


type 
LArray = array[1 .. UpperLimit] of Bech 
ArrayAddr = “LArray; | 


var | 
head: ArrayA ddr; 


NEW(head); 
if head = nil then 
aoaes take some recovery action ..... 


head*[1] :=0; { zero fill array } 
MOVELEFT( head” [1], head*[2], 
SIZEOF (integer) *(U pperLimit - 1)); 
. eee and'so on ..... 
end 


DISPOSE — DISPOSE OF ALLOCATED STORAGE 


DISPOSE frees (or de-allocates) dynamically allocated 
storage. The procedure reference: 


DISPOSE (p); 


frees up the allocated storage referenced by the pointer 
variable ‘p’. Upon return from DISPOSE, the pointer vari- 
able ‘p’ contains the value nil. 


Attempts to DISPOSE using a pointer variable that contains 
nil is a no-op and is ignored. 


If NEW was used to allocate a variable with a specific vari- 
ant, DISPOSE should be called with exactly the same vari- 
ant, else the heap is likely to be corrupted. 


In some operating environments, DISPOSE currently does 
not return the deallocated memory to the heap (see appen- 
dices for details relating to your implementation). 
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MARK — MARK POSITION OF HEAP 


MARK is used to remember the current position of the top 
of heap. MARK and RELEASE are used together to de- 
allocate memory and return the top of the heap to a previ- 
ously MARK ’ed point. For example, a procedure might, 
upon entry, MARK the heap top, then allocate large 
numbers of variables, and then, just prior to exiting, 
RELEASE all the allocated memory. Such a situation 
might occur, for instance, in allocating the local symbol 
table for an assembly unit. At the end of the unit, all the 
local labels need to disappear, MARK and RELEASE pro- 
vide a handy means to dispose of storage in bulk. The pro- 
cedure definition of MARK is: 


procedure MARK(HeapPointer: “anything); 


HeapPomwter must be a pointer - the pointer type is 
irrelevant but conventionally it is a pointer to a longint. 
HeapPowmter must not be used for any purpose other than as 
a MARK pointer. 


RELEASE — RELEASE ALLOCATED MEMORY | 


RELEASE is used to cut the heap back to a point previ- 
ously MARK’ed. The procedure definition of RELEASE 
is: 


procedure RELEASE(HeapPointer: “anything); 


As for MARK, HeapPowmter is a pointer of any type but 
conventionally is a pointer to longint. RELEASE cuts the 
heap back to the place indicated by HeapPomter. H eap- 
Powter must have been properly initialized by a previous 
call to MARK. MARK’s and RELEASE’s must be 
matched properly. 
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MEMAVAIL — DETERMINE AVAILABLE MEMORY 


MEMAVAIL returns the number of bytes available for 
allocation in the storage pool. The function definition of 
MEMAVAIL is: 


function MEMAVAIL: longint; 


MEMAVAIL is not meaningful under operating systems in 
which processes grow dynamically. 


8.3 ARITHMETIC FUNCTIONS 


ABS — COMPUTE ABSOLUTE VALUE 


ABS(x) computes the absolute value of its argument ‘x’. 
The type of the result is the same as the type of ‘x’, which 
must be either integer, real, or double. 


SQR — COMPUTE SQUARE OF A NUMBER 


SQR(x) computes the square of ‘x’, that is, it computes 
x*.. The type of the result is the same as the type of ‘x’, 
which must be either integer, real, or double. 


SIN — TRIGONOMETRIC SINE 


SIN(x) computes the trigonometric sine of the argument 
‘x’. The type of ‘x’ may be either integer, real, or double. 
The return type of SIN is always real or double. The argu- 


ment is in radians. 


COS — TRIGONOMETRIC COSINE 


COS(x) computes the trigonometric cosine of the argument 
‘x’. The type of ‘x’ may be either integer, real, or double. 
The return type of COS is always real or double. The argu- 


ment is in radians. 
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ARCTAN — TRIGONOMETRIC ARCTANGENT 


ARCTAN(x) computes the trigonometric arctangent of the 
argument ‘x’. The type of ‘x’ may be either integer, real, 
or double. The return type of ARCTAN is always real or 
double. 


EXP — COMPUTE EXPONENTIAL OF VALUE 


EXP(x) computes the exponential of the argument ‘x’. 
The type of ‘x’ may be either integer, real, or double. 
The return type of EXP is always real or double. 


~ PWROFTEN — COMPUTE TEN TO A POWER 


The function PWROFTEN(x) returns a value which is 10 
raised to the power specified by the argument. The func- 
tion definition is: 


function pwroften (exponent: integer): real; 
The valid range of the exponent argument is 0 .. + 38. 


LN — NATURAL LOGARITHM OF VALUE 


LN(x) computes the natural logarithm of the argument ‘x’ 
The type of ‘x’ may be either integer, real, or double. 
The return type of LN is always real or double. It is an 
error to supply an argument less than or equal to zero. 


SQRT — SQUARE ROOT OF VALUE 


SQRT(x) computes the square root of the argument ‘x’ 
The type of ‘x’ may be either integer, real, or double. The 
return type of SQRT is always real or double. It is an error 
to supply an argument less than or equal to zero. 
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8.4 PREDICATES OR BOOLEAN ATTRIBUTES 


ODD — TEST INTEGER FOR ODD OR EVEN 


ODD(x) determines if the argument is odd or even. The 
type of the argument ‘x’ must be integer. The result is 
true if ‘x’ is an odd number, false if ‘x’ is an even number. 


| EOLN — DETERMINE IF END OF LINE READ 


The function EOLN returns true if the textfile position is at 
an end-of-line character. Otherwise the EOLN function 
returns false. EOLN is only defined for files whose com- 
ponents are of type text or interactive. 


EOF _- DETERMINE IF END OF FILE READ | 


The function EOF returns true if a read from a file 
encounters an end-of-file. EOF returns false in all other 
cases. To set EOF true for a file attached to the console, 
the EOF character must be typed. In SVS Pascal this is 
Control-D. For a textfile, EOF being true implies that 
EOLN is true as well. 


If a file is closed, EOF returns true. After a RESET takes 
place, EOF is false for the RESET file. If EOF becomes 
true during a GET or a READ, the data obtained is not 
valid. 

ISNIN, ISINF, ISNUM 

The three predicates ISNIN, ISINF, and ISNUM take 
either a real or double parameter and return true if that 


value is Not A Number, is an INFINITY value, or is a 
NUMBER, respectively. Otherwise they return false. 
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8.5 VALUE CONVERSION FUNCTIONS 


TRUNC — TRUNCATE TO NEAREST INTEGER 


The function TRUNC(x) truncates its argument ‘x’ to the 
nearest integer. ‘x’ must be of type real or double. If the 
result of truncating the argument ‘x’ cannot be stored in an 
integer variable, the maximum negative longint value is 
returned. 


For x >= 0, the result is the largest inteeee — X. 
For x < 0, the result is the smallest integer >= x. 


ROUND — ROUND TO NEAREST INTEGER 


The function ROUND(x) rounds its argument ‘x’ to the 
nearest integer. ‘x’ must be of. type real or double. The 
result is of type integer. If the result of rounding the argu- 
ment ‘x’ cannot be stored in an integer variable, the max- 
imum negative longint value is returned. 


For x >= 0, the result is TRUNO(x+ 0.5). 
For x < 0, the result is TRUNC(x-0.5). 


ORD — CONVERT TYPE TO INTEGER VALUE 


The function ORD(x) returns an integer which is the ordi- 
nal number of the argument ‘x’ in the set of values defined 
by the type of ‘x’. The argument ‘x’ can be any non- 
floating point scalar. 
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For example: 


var 
one_letter : char: 
converted : integer; 


begin , 
one_letter := ’m’; 
converted := = ORD(one ates): 


At the end of this program fragment, the variable converted 
has the value 109, since that is the ordinal position of lower 
~ ease ‘m’ in the ASCH character set. 


ORD4 — CONVERT TO LONG INTEGER  - 


_ The function ORD 4(x) returns a longint which is the ordi- 
nal number of the argument ‘x’. As for ORD, the argu- 
ment ‘x’ can be any non-floating point scalar. 


CHR __ INTEGER TO CHARACTER 
REPRESENTATION 


The function CHR(x) converts its argument ‘x’ to a char- 
acter. The argument ‘x’ must be an integer. The result 
type of CHR is the character whose ordinal number is ‘x’. 
The argument must therefore lie in the range 0 .. 255 for 
CHR to return a valid result. — 
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8.6 OTHER STANDARD FUNCTIONS 


SUCC — DETERMINE SUCCESSOR OF VALUE 


The function SUCC(x) accepts an argument which is any 
scalar type except real or double. The result of SUCC is 
the successor value of the argument, if such a successor 
value exists. 


SUCC(x) is undefined if ‘x’ does not have a successor 
value. 


PRED — DETERMINE PREDECESSOR. OF VALUE 


The function PRED(x) accepts an argument which is any 
scalar type except real or double. The result of PRED is 
the predecessor value of the argument, if such a predeces- 
sor value exists. | 


PRED(x) is undefined if ‘x’ does not have a predecessor 
value. | 


8.7 MISCELLANEOUS LOW LEVEL ROUTINES 


MOVELEFT AND MOVERIGHT 


MOVELEFT and MOVERIGHT transfer a number of bytes 
from a source to a destination. MOVELEFT starts at the 
leftmost byte in the source (the first byte), while 
MOVERIGHT starts at the rightmost byte in the source 
(the last byte). In all cases, the source and destination 
strings can overlap, with the appropriate undesired results if 
the move is in the wrong direction. 7 
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The format of MOVELEFT and MOVERIGHT is: 
procedure MOVELEFT(var source, var destination, length); 


procedure MOVERIGH T(var source, var destination, length); 


source is the place to move bytes from. 

destination is the place to move bytes to. 

length is an integer specifying the number of 
bytes to move. 


source and destination can be any sort of type. If either 
source or destination is an array, the array can be sub- 
scripted. If either source or destination is a record, a field 
specification can be given. 


For a MOVELEFT, the byte at source is moved to destina- 
tion and so on until the byte at source+ length-1 is moved to 
destination+- length-1. For a MOVERIGHT, the move starts 
from the other end, so that the byte at source+ length-1 is 
moved to destination+ length-1 and so on until the byte at 
source is moved to destination. 


Neither MOVELEFT nor MOVERIGHT perform any range 
checking. They should therefore be used with a modicum 
of caution. Moreover, code written using MOVELEFT 
and/or MOVERIGHT is highly non portable between the 
processors on which SVS Pascal is implemented. 


Example of MOVELEFT 


The example shown below illustrates how MOVELEFT can 
be used to zero fill an array. 


var 
manifold: array[1 .. 100] of -128 .. 127; 


manifold{1] := 0; { place an initial zero } 
MOVELEFT(manifold[1], manifold[2], 99); 
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FILLCHAR — FILL A STORAGE REGION WITH A 
CHARACTER 


FILLCHAR is a procedure that replicates a byte throughout 
a region of storage. The procedure definition of 
FILLCHAR is: 


procedure FILLCHAR(var address; integer count; char byte); 


address is the address of an arbitrary storage loca- 
tion in memory. Note that address is a var 
parameter to FILLCHAR, so it may not be 
the address of a packed object. 


count is the number of times that the next 
parameter, byte, should be replicated. 


byte is a single character value which is repli- 
cated throughout the region of storage 
starting at address and ending at 
address+ count1. 


Example of FILLCHAR 


The example shown below illustrates how FILLCHAR can 
be used to space fill a print buffer 


var 
printbuf: array[1 .. 256] of char; 


FILLCHAR(printbuf, 256, ’ ’); 
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SIZEOF — DETERMINE SIZE OF DATA ELEMENT 
OR TYPE 


SIZEOF is a function that returns the number of bytes that 


a variable or type is allocated. The function definition of 
SIZEOF is: 


function SIZEOF(identifier): integer; 


where identifier is a variable name or a type identifier. The 
SIZEOF function is particularly useful as a parameter to 
MOVELEFT or MOVERIGHT, or in performing unit 
input-output, where the number of bytes to transfer must 
be known. 


POINTER — CONVERT INTEGER EXPRESSION TO 
POINTER 


POINTER converts an integer expression to a pointer 
value. The function definition of POINTER is: 


function POINTER(expression): universal; 


POINTER converts the ezpresston, which must be an 
integer expression, to a pointer value. The result type of 
POINTER is a universal pointer type that has the type of 
nil, which means that it may be assigned to any pointer 
variable. 
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8.8 CONTROL PROCEDURES 


EXIT — EXIT FROM PROCEDURE 


EXIT provides the means to get out of a procedure prema- 
turely. EXIT finds especial use in recursive applications 
such as expression evaluators or tree-walking procedures. 
Its effect is to cause an immediate (and clean) return from 
a named procedure or function. The procedure definition 
of EXIT is: | 


EXIT( name); 


where name is the name of the procedure or function to be 
exited. 


If the name parameter is the name of a recursive procedure 
or function, the most recent activation of that procedure or 
function is terminated. 


Files that are local to an EXIT’ed procedure or function are 
not implicitly closed upon exit; they must be closed expli- 
citly before the EXIT statement. 


If an EXIT statement is made inside a function before any 
assignment is made to the function identifier, the result of 
the function is undefined. 


EXIT is exactly the same as a goto a label at the end of the 
named procedure or function. 
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HALT — TERMINATE PROGRAM WITH RETURN 
VALUE 


The HALT procedure terminates the currently executing 
program. HALT returns a value to the host operating sys- 
tem to indicate a successful termination or an error termi- 
nation. The procedure definition of the HALT procedure 
is: 


HALT(i: integer); 


The ‘i’ parameter is optional. If the ‘i’ parameter is omit- 
ted, by simply executing a | 


HALT 


statement, the correct no error code is returned to the 
host operating system. 


The HALT procedure also returns a value to the CALL 
function, described below. 


CALL — CALL UP ANOTHER PROGRAM 


The CALL function requests the host operating system to 


execute another program. The function definition of 
CALL is: | | 


function CALL( pathname: stringtype; 
var infile, outfile: interactive | text; 
fargv: ?; farge: integer): integer; 


The parameters to the CALL function are: 


pathname is a string containing the pathname of 
the file in which the program resides 
which is to be run. The definition of 
what constitutes a pathname is 
operating system dependent. 
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infile and outfile specify the standard input and stan- 
dard output for the program specified 
by pathname. In _ addition, the 
definition specifies whether the stan- 
dard input and standard output files 
for that program are text files resid- 
ing in the file system, or the user’s 
terminal. 


fargv is an array of pointers to strings con- 
sisting of the options and filename 
arguments for the program in ques- 
tion. 


farge is an integer count of the number of 
arguments in fargv. 


The value returned from the CALL function is either the 
value which a program returns via a HALT eall, or is one 
of the operating system error codes. 


NOTE: The CALL function is not available under all 
operating systems. See Appendix G for specifics about this 
operating system. 
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COMPILE TIME OPTIONS 


Pascal compile-time options are introduced via toggles 
embedded in comments. Comment toggle format is like: 


(+*$T params*) 
or 
{$T params} 


where either the (* and *) form, or the { and } form of 
comment delimiters may be used. 


The toggle must immediately follow the opening comment 
delimiter, with no intervening spaces. 


A comment toggle is always introduced by a § sign. The $ 
sign is followed by the toggle letter, either in upper or 
lower case, followed by the parameters for that toggle. 
Compiler options that are followed by a + or - may be 
given in a list: | 


{$C+ ,I+ ,L- ....} 


There must not be any spaces after the commas in the list. 
Scanning of a list of compiler options terminates if any 
incorrect syntax is encountered. 


Compiler options do not obey any of the Pascal scope rules. 
Once an option is selected by a toggle, it remains in effect 
until another toggle in the source text deselects that option. 
Compiler options are described in the list below. 


Some of the descriptions of the compiler options make 
references to the options specified on the compiler com- 
mand line. A description of the command line options can 
be found in Appendix F: Operating the SVS Pascal System. 
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$C+ or $C- 


$D+ or $D- 
$E filename 


$N+ or $N- 


$I filename 
$I+ or $I- 


$L filename 


$L+ or $L- 


Pascal 


Turns Code generation on (+) or off 
(-). This is done on a procedure by pro- 
cedure basis. The value of the options 
at the end of a procedure controls code 
generation. The default is C+. 


Turns on or off the generation of infor- 
mation for the SVS Symbolic 
Debugger. 


Starts listing Hrrors to the file specified 
by filename. Also see the $L option 
below. 


Checks the result of floating point 
expressions for validity. If this option 
is enabled, then the VALUE of most 
floating point expressions are checked 
for the values Not A Number and 
INFINITY. If present, a run time error 
is caused. The default is off. This 
option applies only to the S-32/S-320. 


Includes the file specified by filename at 
this point in the source. 


Turns automatic Input Output checks 
on (+) or off (-). The default is I+. 


Makes a compilation Listing on the file 
specified by filename. If a listing file 
already exists, that file is closed and 
saved before the new file is opened. 


Turns Listing on (+) or off (-) without 


changing the listing file name. The list- 
ing filename must be specified before 
turning listing on. The default is $L+ 


(listing on) when a listing file has been 


specified on the compiler’s command 
line or $L- (listing off) when a listing 
file was not specified. When the list 
option is on, the listing is directed to 
whatever list file was specified on the 
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$F+ or $F- 


$P+ or $P- 


$Q+ or $Q- 


$R+ or $R- 
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Pascal compiler’s command line. 


On the S-32/S-320, this option gen- 
erates code to use floating point 
hardware (+) or software (-). The 
default is off (i.e., use software). Note 
that this option applies only to the S- 
32/S-320. 


Specifies whether the Pascal compiler 


should prompt the user for corrective 


action when errors are detected. The 
$P+ option indicates that the compiler 
should prompt the user as to whether 
to continue the compilation when 
errors are detected. The $P- option 
disables the prompting feature. This 
feature is also available via the -p or 
+p option on the compiler command 
line. The default is $P- for the S- 
32/S-320 and PC AT. 


Controls the amount of messages that 
the Pascal compiler prints while compil- 
ing a program. The $Q+ option results 
in fewer messages. The $Q- option 
results in more messages. The default 
is $Q+ for the S-32/S-320 and PC AT. 


Turns run-time Range checking on 
(+) or off (-). At present, range 
checking is done in assignment state- 
ments, on array indexes, and for string 
value parameters. The default setting 
is $R+. 


Range checking is only done for user 
defined subrange, and SCALERS and 
for array indexing. The type integer is 
NEVER range checked. Compile-time 
range checking (i.e., v:=constant) for 
user defined types is always enforced. 
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Compile Options 


$S segment 


$U filename. 


$%+ or $% 
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Places code modules into the Segment 
specified by segment. The default seg- 
ment name is ’ ’ (eight spaces), 
which is where the main program and 
all built-in support code are always 
linked. All other code can be placed 
into any segment. Under most operat- 
ing systems, segmentation is automati- 
cally done by the system and there is 
no reason to explicitly segment pro- 
grams (see Appendices G and H for 
more specific information if segmenta- 
tion is meaningful in your environ- 
ment). 


Searches for subsequent Units in the 
file specified by filename. 


Specifies that the percent sign % is a 
valid character (+) or is not a valid 
character (-) in identifiers. The default 
is $%. Procedures which begin in the 
percent sign character may be called 


using a ‘different calling sequence, see 


the $E- option above. 
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ERROR MESSAGES 


This appendix describes the error messages that the Pascal 
system generates. 


A.1 COMPILE TIME LEXICAL ERRORS 


10 
11 
12 
13 
14 
15 
16 
17 


18 


Too many digits 

Digit expected after ’.” in a real number 
Integer Overflow 

Digit expected in the exponent of a real number 
End of line encountered in a string constant 
Invalid character in input 

Premature end of file in source program 


Extra characters encountered after the end of the pro- 
gram 


End of file encountered in a comment 


A.2 COMPILE TIME SYNTACTIC ERRORS 


20 
21 
22 


23 


Illegal symbol 
Error in simple type 
Error in declaration part 


Error in parameter list of a procedure or function : 
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24 
290 
26 
27 
28 
29 


30 
31 
32 
33 
34 
39 
36 
37 
38 
39 


40 
41 
42 
43 
44 


Error in constant 

Error in type 

Error in field list of a record declaration 
Error in factor of an expression 

Error in variable 


Identifier expected 


Integer expected 
’(? expected 

)’ expected 

|’ expected 

|’ expected 

’:? expected 

’s’ expected 

’==’ expected 

’,’ expected 

**’ expected 


"s==’ expected 

program keyword expected 
of keyword expected 

begin keyword expected 
end keyword expected 


Pascal 
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45 then keyword expected 

46 until keyword expected 

47 do keyword expected 

48 to or downto keyword expected 


50 if keyword expected 

51 ’.’ expected 

52 implementation keyword expected 
53 interface keyword expected 


A.3 COMPILE TIME SEMANTIC ERRORS 
100 Identifier declared twice in the same block 
101 Identifier is not of the appropriate class 
102 Identifier not declared 

103. = Sign not allowed 

104. Number expected 

105 Lower bound exceeds upper bound 

106 Incompatible subrange types 

107 Type of constant must be integer 

108 Type must not be real 


109 Tagfield must be a scalar or subrange 


110 Type incompatible with tagfield type 
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111 
112 
113 
114 
115 


116 
117 
118 
119 


120 
121 
122 
123 
124 


125 
126 


127° 


128 


Index type must not be real 

Index type must be scalar or subrange 
Index type must not be integer or longint 
Unsatisfied forward reference 


Forward reference type identifier cannot appear in a 
variable declaration 


Forward declaration - repetition of parameter list not 
allowed 


Forward declared function - repetition of result type 
not allowed | 


Function result type must be scalar, subrange, or 
pointer 


File is not allowed as a value parameter 


Missing result type in function declaration 
F-format for real type only 

Error in type of parameter to a standard function 
Error in type of parameter to a standard procedure 


Number of actual parameters does not agree with 
declaration 


Illegal parameter substitution 


Result type of parametric function does not agree 
with declaration | 


Expression is not of set type 


Only tests for equality allowed 
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129 


130 
131 
132 
133 
134 
135 
136 
137 
138 
139 


140 
141 
142 
143 
144 
145 
146 
147 
148 
149 


Error Messages 


Strict inclusion not allowed 


Comparison of file variables not allowed 
Illegal type of operand(s) 

Operand type must be boolean 

Set element type must be scalar or subrange 
Set element types not compatible 

Type of variable is not array or string 

Index type is not compatible with declaration 
Type of variable is not record 
Type of variable must be file or pointer 
Illegal type of loop contro! variable 


Illegal Expression type 

Assignment of files not allowed 

Case selector incompatible with selecting expression 
Subrange bounds must be scalar 

Operand type conflict 

Assignment to standard function is not allowed 
Assignment to formal function is not allowed 

No such field in this record 

Type error in read 


Actual parameter must be a variable 
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150 
151 
152 
153 
154 


159 
156 
157 
158 
159 


160 
161 
162 


163 
164 
165 
166 


167 
168 
169 
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Multiply defined case selector 

Missing corresponding variant declaration 

real or string tagfields not allowed in variant record 
Previous declaration was not forward 


Substitution of standard procedure or function not 
allowed 


Multiple defined label 
Multiple declared label 
Undefined label 
Undeclared label 


Value parameter expected 


Multiple defined record variant 
File not allowed here 


Unknown compiler directive (not external or for- 
ward) 


Variable cannot be a packed field 
Set of real is not allowed 
A field of a packed record cannot be a var parameter 


Case selector expression must be a scalar or a 
subrange 


String sizes must be equal 
String too long 


Value out of range 
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170 


171 


172 
173 
174 
179 
176 


177 


178 


190 


Error Messages 


Cannot take the address of a standard procedure or 
function 


Assignment to function result must be done inside 
that function 


Control variable of a for statement must be local 
BUFFERED or UNBUFFERED expected 
NORMAL, LOCK, PURGE, or CRUNCH expected 
File variable expected 


Must be within the procedure or function being 
exited | 


Cannot pass cexternal as procedure or function 
parameter 


Label value must be 0 to 9999 


No such unit in this file 


A.4 SPECIFIC LIMITATIONS OF THE COMPILER 


300 
301 


302 
303 
304 
3095 
306 


Too many nested record scopes 


Set limits out of range (maximum sized set is 0 .. 
2031) 


String limits out of range 

Too many nested procedures or Panebons 
Too many nested include or uses files 
Include not allowed in interface section 


Pack and unpack are not implemented 
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307 
308 
309 


310 
311 
312 
313 


315 


390 
351 


Too many units 
Set constant out of range 


Maximum comparable packed array of char is of size 
250 characters 


Too many nested with statements 
Too many nested function references 
Record too big (maximum size is 32766 bytes) 


Too many elements in an array (maximum number 
of elements is 32766 in each dimension) 


. Only 32766 bytes of parameters allowed in argument 


list 


Procedure too large 


File name in option too long 


A.5 INPUT OUTPUT ERRORS 


400 
401 
402 
403 
404 
405 
406 


Not enough room for code file 
Error in rereading code file 
Error in reopening text file 
Unable to open uses file 

Error in reading uses file 
Error in opening include file 


Error in rereading previously read text block 
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407 Not enough room for intermediate code file 
408 __ Error in writing code file 


409 Error in reading intermediate code file 


410 Unable to open listing file 


A.6 CODE GENERATION ERRORS 
1000+ Code generator errors - in theory should never 


happen 


Normally these errors indicate that an erroneous .I file has © 
been specified as the input file to the code generator. 


A.7 IORESULT ERROR CODES 


The codes listed below are those that the IORESULT func- 
tion returns. Not all codes are issued under all operating 
systems. | 


No Error - indicates a good result 
Parity error or CRC error — 
Invalid device number 

Invalid input-output request 
Nebulous Hardware Error 
Volume went off-line 

File lost in directory 

Bad file name 


NI Oo 8 -& WO HW FS © 
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8 
9 
10 


11 
12 
13 
14 
15 
16 
17 
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No room on volume 
Volume not found 


File not found 


Duplicate directory entry 
File already open 

File not open 

Bad input information 
Ring buffer overflow 


Write protect 


Invalid seek 64 Device error of unknown origin © 


Pascal 
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PASCAL LANGUAGE SUMMARY 


B.1 PREDEFINED IDENTIFIERS 


Constants 


maxint TRUE FALSE 


Types 
Boolean interactive longint text 
char integer real double 
Variables 


Arge Argy Input Output 


Stderr 
Procedures 

CLOSE HALT PUT UNITCLEAR 
DELETE INSERT READ UNITREAD 
DISPOSE MARK READLN UNITSTA TUS 
EXIT MOVELEFT RELEASE UNITWRITE 
FILLCHAR MOVERIGHT RESET WRITE 
GET NEW REWRITE WRITELN 
GOTOXY PAGE SEEK 
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Functons 
ABS EOLN MEMAVAIL SCANEQ 
ARCTAN . EXP ODD SCANNE 
BLOCKREAD FILLCHAR ORD SIN 
BLOCKWRITE IORESULT ORD 4 SIZEOF 
CHR ISINF POIN TER SOR 
CONCAT ISNAN . -POS SORT 
COPY ISNUM PRED SUCC 
COS LENGTH PWROF TEN TRUNC 
EOF LN ROUND UNITBUSY 


B.2 PASCAL SYNTAX DEFINITIONS 


Syntactic constructs enclosed between angle brackets < and 
> define the basic language elements. Every language con- 
struct should eventually be defined in terms of basic lexical 
constructs defined in the remainder of this appendix. 


A construct appearing outside the angle brackets stands for 
itself, that is, it is supposed to be self denoting. Such a 
construct is known as a terminal symbol. Terminal symbols 
and reserved words appear in bold face text. 


The symbol ::==is to be read defined as. 


The symbol .. means through, indicating an ordered 
sequence of things where only the start and end elements 
are specified. (The reader is left to infer the middle ele- 
ments). For example, the notation ‘a’ .. ‘z’ means the 
ordered collection starting with the letter ‘a’, ending with 
the letter ‘z’, and containing the letters ‘b’, ‘c’....‘x’, ‘y’ in 
between. In other words, all the lower case letters. 


The vertical bar symbol | is read as or. It separates 
sequences of elements that represent a choice of one out of 
many. | 
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The metalanguage construct {...} (elements inside braces) 
enclose elements which are to be repeated zero to many 
times. Although the braces are also used as one of the 
forms of comment delimiters in Pascal, this should not 
cause any ambiguity. The one case where ambiguity would 
occur is in the definition of comments, and this is explicitly 
pointed out at that time. 


The Pascal compiler recognizes the following alphabet or 
character set 


<letter> ::==’A’..’Z’, ’a’..’2’, and’_’ 
<digit> == ’0’.. ’9’ 
<hex digit> :=—= <digit> |’a’..’f? | ’A’ ..’F’ 
<ASCII graphic characters> :==!”#$%&’()*#= 
= 1? / <> = \ [ | 
@ *|"' {}5:] 
<identifier> ::= <letter> { <letter> |<digit> } . 
<unsigned integer> == <digit> {<digit>} 
<unsigned real> ::= 
<unsigned integer>.< unsigned integer> 
| <unsigned integer>.< unsigned integer>E<scale factor> 
|<unsigned integer>E<scale factor> 
| <unsigned integer>.< unsigned integer>D<scale factor> 
|<unsigned integer>D<scale factor> 
<unsigned number> ::= <unsigned integer> || <unsigned real> 
<scale factor> ::= <unsigned integer> | <sign>< unsigned inte 
<sign> «= + |- 
<hex number> ::= $<hex digit> {<hex digit>} 
<string> ::== ’<character> {<character>} 
<character value> ::= \ <two digit hexadecimal number> 


<label> ::= <unsigned integer> 
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<comment> ::== { <any printable characters except ”}’> } 
|(* <any printable characters except ”*)” *) 


<any printable character> includes carriage-return, line-feed, 
tab, and so on. 


<constant identifier> ::= <identifier> 


<constant> ::= <unsigned number> 

| <sign> <unsigned number> 

| <constant identifier> 

| <sign> <constant identifier> 
| <string> 


<constant definition> ::= <identifier> == <constant> 


<type declaration> ::= type <type spec> {;<type spec>} 


<type spec> ::= <type identifier> == <Pascal type> 


<simple type> ::= <scalar type> 
| <standard type> 
| <subrange type> 
| <type identifier> 


<scalar type> ::= (<identifier> {,<identifier>}) 


<subrange type> ::= | 
<subrange type identifier> |<lower> .. <upper> 


<lower> == <signed scalar constant> 

<upper> ::= <signed scalar constant> 

<structured type> ::= <unpacked structured type > 
_|packed <unpacked structured type > 


<unpacked structured type> ::= <array type> 
| <string type> 
| <record type> 
| <set type> 
| <file type> 


<array type> ::= array [<index list>] of <type> 
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<index list> := <simple type> {, <simple type>} 


<com ponent type> ::= <type> 


<string type> ::= string|<static length>] 


<static length> ::= integer constant in the range 1 .. 255 


<record type> ::= record <field list> end; 
<field list> ::== <fixed part> 
| <fixed part> ; <variant part> 
| <variant part> 


<fixed part> ::= <record section> {; <record section>} 
<record section> ::= <field identifier list> : <type> 
<field identifier list> ::= <field identifier> {,<field identifier>} 


<variant part> ::= 
case {<tag field>} <type identifier> of <variant list> 
<variant list> ::== <variant> {; <variant>} 
<variant> ::= <case label list> : (<field list>) 
<case label list> ::= <case label> {, <case label>} 
<case label> ::= <constant> 
<tag field> ::== <identifier>: 


<set type> ::= set of <simple type> 


<file type> ::= file of <type> 
file 


<pointer type> ::== *<type identifier> 
<variable declaration> ::= 
_ <identifier> {,<identifier>}: <data type>; 


<variable> ::= <entire variable > 
| <component variable > 
| <referenced variable > 


<entire variable> ::= <variable identifier> 
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<com ponent variable> ::= <indexed variable > 


| <field designator> 
|  <file buffer> 


<indexed variable> ::== <array variable> <subscript list> 


<subscript list> ::= [ <expression> {,<expression >} ] 
|{ <expression> ] {[ <expression> ] 


<field designator> ::== <record variable >. <field identifier> 


<file buffer> :: 
<file variable> :: 


< file variable > * 
<variable > 


<referenced variable> s:= < pointer variable >~* 


< pointer variable> ::== <variable> 


<unsigned constant> ::= <unsigned number> 
| <string> 


| <constant identifier> 
| nil 
<factor> ::= <variable> 
| <unsigned constant> 
| <function designator> 
| <set constructor> 
, 
| 


(<expression>) 
not <factor> 


<set constructor> ::== [ <element> {,<element>}] 
<element> ::= <expression> 


| <expression> .. <expression> 
<term> :== <factor> 
| <term> <multiplying operator> <factor> 
<simple expr> :== <term> 


| <simple expr> <adding operator> <term> 
| <adding operator> <term> 
<expression> ::= 

<sim ple expr> 
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| <simple expr> <relational operator> <simple expr> 
<multiplying operator> := * | / | div | mod | and 
<adding operator> ::= + |- | or 
<sign operator> ::= + |- 


<relational operator> := =|<> |> |< |>=|<=lin 


< assignment statement> ::= 
<variable> :== <expression > 
| <function identifier> :== <expression> 


<procedure call statement> ::= 
< procedure identifier><actual parameter list> 
| <procedure identifier> 


<actual parameter list> ::= 
(<actual parameter> {,<actual parameter> }) 


<actual parameter> ::= <expression> 
| <procedure identifier> 
| <function identifier> — 


<structured statement> ::= <begin statement> | 
_ | <if statement> | 
| <while statement> 
| <repeat statement> 
| <for statement> 
| <case statement> 


<begin statement> ::= begin <statement list> end 


<statement list> ::= <statement> {; <statement>} 


<if statement> := 
if <Boolean expression> then <statement> 
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| if <Boolean expression> then <statement> else <statement> 
<case statement> ::== case <expression> of <cases> 
{otherwise: <statement>} end 
<cases> = <acase> {; <acase>} 
<a case> = 


<selection spec> {, <selection spec>}: <statement> 


<selection spec> ::== <simple constant scalar expression > 

<while statement> ::= while <expression> do <statement> 
<repeat statement> ::= repeat <statement> until <expression> 
<for statement> ::= 


for <control variable> := <for list> do <statement> 


<for list> ::== <initial value> to <final value> 
| <initial value> downto <final value> 


<control variable> ::== <identifier> 
<initial value> ::== <expression> 


<final value> ::= <expression> 


<with statement> ::= 
with <record variable> {,<record variable >} 
) do <statement> 


<goto statement> ::== goto <label> 


<unit> :== unit <identifier>; 
<interface part> 


<implementation part> 
end. 


<interface part> ::== interface 
<uses clause > 
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{ <constant definition part> 
<type definition part> 
<variable definition part> } 
<procedure and function declaration part> 
<implementation part> ::== implementation 
{ <label declaration part> 
<constant definition part> 
<type definition part> 
<variable definition part> } 
<procedure and function declaration part> 
<uses clause > ::= uses <unit name> {,<unit name>} 
<declaration> ::= <constant declaration> 
| <type declaration> 
| | <variable declaration> 
| < procedure or function declaration> 


<program> ::= <program heading> <block>. 


<program heading> ::= 
program <identifier> (<program parameters>); 


<program parameters> ::= <identifier> {,<identifier>} 
<label declaration part> ::= label <label> {, <label>}; 


<constant definition part> ::= const <constant definition list>; 
<constant definition list> ::= 

<constant definition> {, <constant definition>} 
<type definition part> ::= type <type definition list>; 


<type definition list> ::= <type definition> {; <type definition>} 


<variable declaration part> ::= var <variable declaration list> 


<variable declaration list> ::== 
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<variable declaration> {;<variable declaration>} 


<procedure declaration> ::= <procedure heading> <block> 
<function declaration> ::== <function heading> <block> 


<block> ::= { <label definition part> 
<constant definition part> 
<type definition part> 
<variable declaration part> } 
< procedure and function declaration part> 
<statement part> 


<statement part> ::= begin <statement list> end 
<statement list> ::= <statement> {; <statement>} 


<procedure heading> ::= 
procedure <identifier>; {<attribute >;} 
| procedure <identifier> (<formal parameters>); 
{<attribute >;} 


<function heading> ::= 
function <identifier>:<result type>; {<attribute >;} 
|function <identifier> (<formal parameters>): 
<result type >; {<attribute >;} 

<formal parameters> ::= <formal parameter> {;<formal parameter>} 
<formal parameter> ::= <parameter group> 

| var <parameter group> 

| <procedure heading> 

|  <function heading> 


<parameter group> ::= 
<identifier> {,<identifier>}:<type identifier> 


<attribute > ::= external | forward | cexternal 


<result type > ::== <simple type > 
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RELATIONSHIP TO ISO PASCAL 


The International Standards Organization (ISO) and the 
American National Standards Institute (ANSI) are engaged 
in a joint effort to define a Pascal Standard. 


In general, SVS Pascal conforms to the (proposed) ISO. 
Pascal standard as defined in Pascal User Group News, 
Number 20, December 1980. There are however some 
differences that are spelled out here. 


In SVS Pascal, thirty-one characters are significant in 
identifiers. Linkable external names have only eight 
significant characters. 


The Pascal standard procedures PACK and UNPACK are 
not supplied. 


Conformant arrays are not implemented in accordance with 
the level 0 (U.S) standard. 


There is a small difference in the way that a text file is han- 
dled if the text file is associated with an interactive termi- 
nal. 


There is a string basic data type implemented. 


There is a double basic data type implemented. The dou- 
ble data type is a double precision real data type. 


There is an otherwise clause in the case statement. This 


provides a solution if the case selector matches none of the 
cases. Standard Pascal considers this situation an error. 
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SVS Pascal implements a longint data type, which occupies 
four bytes instead of the two ee of the standard integer 
data type. 


The and, or, and not operators can be applied to operands 
of type integer as well as operands of type Boolean. When 
applied to operands of type integer, these operators per- 
form bitwise logical and, logical or, and logical not opera- 
tions on their operands. 


SVS Pascal supports many extensions. These mainly derive 
from the UCSD P-System. 
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RELATIONSHIP TO UCSD PASCAL 


The University of California at San Diego (UCSD) imple- 
mented a widely used Pascal system, oriented towards 
small, personal computer systems. This implementation is 
known as UCSD Pascal. 


SVS Pascal uses a number of ideas from UCSD Pascal. 
The main areas where SVS Pascal conforms to UCSD Pas- 
cal are: 


e Independent compilation is supported through the 
unit concept of UCSD Pascal. The interface, imple- 
mentation and uses statements are implemented. 


e There is an twclude capability. 


e Many of the UCSD Pascal compatible standard pro- 
cedures and functions are implemented the same as 
UCSD Pascal. 


D.1 DIFFERENCES FROM UCSD PASCAL 


In SVS Pascal, the underline character _ is significant in 
identifiers. In UCSD Pascal it is ignored so that the 
identifiers Space_Out and SpaceOut are identical. In SVS 

Pascal, they are considered two different identifiers. | 


SVS Pascal supports a long integer type, with the 
predefined type name longint. The UCSD construct 
integer[nn]| is not implemented. 


There is a double basic data type implemented. The dou- 
ble data type is a double precision real data type. | 


Fields of packed records and elements of packed arrays can 
never be passed as reference parameters to procedures,. 
even in those places where UCSD Pascal allows. 
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The SVS Pascal string type packed array|low..high] of char 
must have a lower bound of 1 to be compatible with literal 
strings, or to be used in array comparisons. UCSD Pascal 
allows any lower bound. 


SVS Pascal does not have the reserved word segment. 
Consequently there is no segment procedure or segment 
function. To segment a SVS Pascal program, use the $S 
compiler option, which directs the compiler to place gen- 
erated object code in a named segment. See Section 9 
which contains a section on compiler options. 

SVS Pascal does not implement unit initialization code. 


SVS Paseal does not supply special units such as APPLES- 
TUFF or TURTLEGRAPHICS. 


SVS Pascal does not have any default string length. 
Instead of the declaration 


var x: string; 

use the declaration 

var x: string[80]; 

SVS Pascal does not have a predefined file called keyboard. 


SVS Pascal implements sets with elements 0 through 2031, 
whereas UCSD Pascal implements 0 through 511. 


Packing algorithms for arrays and records are different. 
Internal storage for sets is different. | 


SVS Pascal does not support comparison of arrays and 
records, with the single exception that packed array|1..n] of 
char can be compared. 
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Predefined string procedures and functions must have 
string variable or string literal parameters. That is, not 
packed array of char or char variable parameters. 


SVS Pascal does not implement the procedure STR, since 
there is no integer[nn] type. 


The file procedures RESET and REWRITE require two 
parameters, namely (file,string). 


End-of-file character from the keyboard is ControL-D 
instead of Control-C. 


SVS Pascal text files must be declared as packed file of 
char. 


SVS Pascal text file reads allow additional prone of 
packed array of char. 


SVS Pascal text file writes allow additional parameters of 
packed array of char and Boolean. 


Under most operating systems, SVS Pascal does not imple- 
ment the unit I/O routines such as UNITREAD, 
UNITWRITE, and UNITWAIT. 


SVS Pascal does not implement TREESEARCH. 


SVS Pascal limits the EXIT procedure to exiting statically 
compiled procedures or functions or the main-program. 
The argument to EXIT must be the name of the routine to 
exit. That is, EXIT(/PROGRAM) is not allowed. 


The MEMAVAIL procedure returns the number of bytes of 
available memory. The return parameter is of the type lon- 
gint. See the Section on Memory Management. Under 
some operating systems MEMAVAIL is not meaningful. 


SVS Pascal implements two procedures SCANEQ (scan 
equal) and SCANNE (scan not equal), whereas UCSD Pas- 
cal implements a single SCAN procedure with a = or <> 
parameter. 
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SVS Pascal does not have any INTRINSIC units. 


SVS Pascal does not implement the unit initialization sec- 
tion in units. 


SVS Pascal implements an optional otherwise clause in case 
statements. If the otherwise clause is present, it must be 
the last statement. For example: 


case huh of 
1: do_this; 
3,0: do_that; 
otherwise: 
do_the_other; 
end; 


SVS Pascal implements true global goto statements. The 
UCSD Pascal {$G+} compiler option is not / needed in 
order to use goto statements. _ 


SVS Pascal has predeclared variables ARGC and ARGV 
that describe the number and value of any parameters 
passed from the command line to a running program. 


Procedures and functions may be passed as parameters. 
The implementation is consistent with the proposed ISO 
standard Pascal. 


ORD (Boolean Expression) works properly in SVS Pascal. 
The mod operator works properly in SVS Pascal. _ 


SVS Pascal has added the unary operator @, which stands 
for address of. Placing the @ in front of a variable, func- 
tion, or procedure, generates the address of that entity. 
The type returned is the type of nil, that is, it can be 
assigned to any pointer variable. The @ operator does not 
work with most of the predefined procedures and functions 
such as ORD or READLN. 
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SVS Pascal has added the function ORD4. It is the same as 
ORD except that it returns a 32-bit integer. 


All integer arithmetic operations are done at a precision of 
either 16 or 32 bits, depending on the maximum size of © 
any arguments. The rules are similar to FORTRAN’s sin- 
gle and double precision reals. 


SVS Pascal statement labels are restricted to the range 0 
through 9999, as in the ISO Pascal standard. 


SVS Pascal provides for hexadecimal integer constants. A 
hexadecimal constant is prefixed with a $ sign. Hexade- 
cimal numbers must be 32 bits long to be considered 
signed numbers, that is, $F FFF represents 65536, not -1. 
To represent -1, code the hexadecimal constant 
$FFFFFFFF. 


The and, or, and not operators can be applied to operands 
of type integer as well as operands of type Boolean. When 
applied to operands of type integer, these operators per- 
form bitwise logical and, logical or, and logical not opera- 
tions on their operands. 
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APPENDIX E 
DATA REPRESENTATIONS 


This appendix describes the ways that SVS _ Pascal 
represents data in storage, how that data is packed for data 
objects that have the packed storage attribute, and the 
mechanisms for passing parameters to procedures and func- 
tions. The information in this appendix is specific for 
implementations of SVS Pascal on the Motorola 68000 fam- 
ily of processors. It is intended as a guide to those pro- 
grammers who wish to write modules in languages other 
than Pascal and have those modules interface to Pascal. 


E.1 STORAGE ALLOCATION 


This section describes the way in which storage is allocated 
to variables of various types. The storage allocation 
described here is for unpacked items. 


In general, any word value is always aligned on a word 
boundary. Anything larger than a word is also aligned on a 
word boundary. Values that can fit into a single byte are 
aligned on a byte boundary. Variables are not necessarily 
allocated in the order in which they are declared since the 
compiler repositions variables to improve the efficiency of 
access addressing. 


A Boolean variable 


Occupies one byte of storage, aligned on a byte boun- 
dary. A value of 0 represents the value false. A value 

_ of 1 represents the value true. Any other value is an 
undefined Boolean value. 
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A scalar (ordinal) type 


Of 128 elements or less, occupies one byte of storage, 
aligned on a byte boundary. If there are more than 128 
elements in the scalar types, it then occupies a word. 


Scalar types are assigned the values 0, 1, 2, ..... , n-l, 
where n is the cardinal number of elements in the 
scalar. | 


Subrange elements 


In the range -128 .. 127 occupy one byte, aligned on a 
byte boundary. A subrange element in the range 
-32768 .. 32767 occupies one word, aligned on a word 
boundary. A subrange element greater than that occu- 
pies two words, aligned on a word boundary. 


An unpacked char element 


Is considered to be a subrange of 0 .. 255. This means 
that it occupies a word. 7 


An integer element 


Occupies one word, aligned on a word boundary. 


A longint element 


Occupies two words, aligned on a word boundary. 


real elements - 


Occupy two words, aligned on a word boundary. A 
real element has a sign bit, an 8-bit exponent and a 
24-bit mantissa. SVS Pascal real elements conform to 
the IEEE standard for reals as defined in the March 
1981 Computer magazine. The layout of a real ele- 
ment is shown below. The range of real numbers is 
approximately -3.4E38 .. + 3.4E38, with a precision of 
approximately seven decimal places. Normal arithmetic 
operations upon real data types can result in the 
extreme values of plus infinity, minus infinity, or Not a 
Number (NaN). These are described below. 
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double elements 


Occupy four words, aligned on a word boundary. A 
double element has a sign bit, an 11-bit exponent and a 
53-bit mantissa. SVS Pascal double elements conform 
to the IEEE standard for double precision as defined in 
the March 1981 Computer magazine. The layout of a 
double element is shown below. The range of double 
numbers is approximately -1.0D308 .. + 1.0D308, with 
a precision of approximately 15 decimal places. Normal 
arithmetic operations upon double data types can result 
in the extreme values of plus infinity, minus infinity, or 
Not a Number (NaN). These are described below. 


Whatever the size of the data element in question, the 
most significant bit of the data element is always in the 
lowest numbered byte of however many bytes are required 
to represent that object. The diagrams below should clarify 
this. 


E.2 REPRESENTATION OF INTEGERS 


bit—>7 
S-bit integer byte 


15 Q 
integer | | byte 
31 


longint byte byte 1/ byte 2 byte 3 | 
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E.3 REPRESENTATION OF REALS AND DOUBLES 
real and double data elements are represented according to 
the proposed IEEE standard as defined in Computer maga- 


zine of March, 1981. The diagrams below illustrate the 
representation. | | 


31 32 23 22 
fs | exponen | tantra 


real D ata Representation 


The format for a real or single-precision floating-point 
number is as shown above. The three field of a real are as 
follows: 
e a one-bit sign bit designated by S in the diagram 
above. The sign bit is a 1 if, and only if, the 
number is negative. | 


e an 8-bit biased exponent. The values of all ones and 
all zeros are reserved values for the exponent. 


e a 24-bit mantissa, with the high order 1 bit hidden. | 


62 S2 S51 | 


63 
ps | exponent | mantis 


Sign | antieus (S2 + 1 bits» 
xponent, biased by 1023 


double D ata Representation 
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The parts of double numbers are as follows: 


e a one-bit sign bit designated by ”S” in the diagrams 
above. The sign bit is a 1 if, and only if, the 
number is negative. 


e an 11 bit biased exponent. The values of all zeros 
and all ones are a one-bit sign bit designated by ”S” 
in the diagrams above. 


e a normalized 53-bit mantissa, with the high-order 1 
bit hidden. 


A real or double number is represented by the form: 
gexponent-bias *1f 
where ‘f’ is the bits in the mantissa. 


Normalized real and double numbers are said to contain a 
hidden bit, providing for one more bit of precision than. 
would normally be the case. 


E.4 REPRESENTATION OF EXTREME NUMBERS 


When real or double data elements are stored in the sys- 
tem, there arises the question of how to represent values 
such as positive and negative infinity. The discussion below 
describes the representations of these extreme numbers, 
and their behavior in expression evaluation. 


zero (signed) 


is represented by an exponent of zero, and a mantissa 
- of zero. 
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denormalized numbers 


are a product of "gradual underflow”. They are non- 
zero numbers with an exponent of zero. The form of a 
denormalized number is: 


9exponent-bias+ iy Of 
-where ‘f’ is the bits in the mantissa. 
signed infinity 


(that is, affine infinity) is represented by the largest 
value that the exponent can assume (all ones), and a 
zero mantissa. 


Not-a- Number (NaN) 


is represented by the largest value that the exponent 
can assume (all ones), and a non-zero mantissa. The 
sign is usually ignored. 


Normalized real and double numbers are said to contain a 
hidden bit, providing for one more bit of precision than 
would normally be the case. 
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HEXADECIMAL REPRESENTATION OF SELECTED 
NUMBERS 


0000000000000000 © 
8000000000000000 


00000000 
80000000 


+0 
-0 


3800000 
BF800000 


3FF0000000000000 
BF F0000000000000 


+1.0 
-1.0 


4000000000000000 
-4008000000000000 


+ 2.0 
+ 3.0 


40000000 
40400000 


7F800000 
FF800000 


7FF0000000000000 
FFF0000000000000 


+ Infinity 
-Infinity 


NaN | 7F8xxxxx | 7FPFxxxxxxxxxxxxx 


DEVIATIONS FROM THE PROPOSED IEEE 
STANDARD 


Deviations from the proposed [IEEE standard i in this imple- 
mentation are as follows: 


Affine mapping for infinities 


normalizing mode for denormalized numbers 


Rounds approximately to nearest - 7 or more guard 


bits are computed, but the sticky bit is not 


Exception flags are not implemented 


Conversion between binary and decimal is not imple- 


mented 


3/10/86 


Data Representations Pascal 


ARITHMETIC OPERATIONS ON EXTREME VALUES 


This subsection describes the results derived from applying 
the basic arithmetic operations on combinations of extreme 
values and ordinary values. 


No traps or any other exception actions are taken. 


All inputs are assumed to be positive. Overflow, 
underflow, and cancellation are assumed not to happen. 


In all the tables below, the abbreviations have the following 
meanings: 


| Denormalized Number 
Normalized Number 


Infinity (positive or negative) © 
Not a Number 
Unordered 


Right one 
Den Num Inf 


0 ee te 
[Den | Den {Den | Num {tnt {NaN 
TaN DNDN Den eT 


Note 1: Inf + Inf=Inf; Inf - Inf = NaN 
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Multiplication 
Left Right Operand — 
| Operand 0 Den | Num Inf NaN 


{Den _| 
| Num _ 


NaN NaN NaN 


Right Operand 
Den | Num Inf NaN 


NaN___| Uno 


Notes: NaN compared with NaN is Unordered, and also 
results in inequality. | 
+ 0 compares equal to -0. 
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Max | 
Right Operand | 
Den | Num Inf 


E.5 REPRESENTATION OF SETS 


SVS Pascal represents a set like a giant integer. The zeroth 
element of a set is always present in the set. Suppose that 
a type and a variable are defined as in this example. 


type 
days_in_year = set of 1 .. 366; 


var 
blarg: days_in_year; 
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The representation for the variable blarg is as in the 
diagram below: 


bit —~» 356 


| ] 


The number of bytes required to contain this a set of 1 .. 
366 is 366/8 which is 46 bytes. The storage is allocated 
accordingly as shown in the above diagram. The value 366 
mod 8 is 6, and there is one unfilled bit in the least 
significant byte of the set. 


E.6 REPRESENTATION OF ARRAYS 


Components of unpacked arrays and records are allocated 
contiguously as defined above. There is no attempt made 
to conserve space in units smaller than bytes. 


Arrays are stored in row order, that is, the last index varies 
fastest. This follows from the strict definition that a multi- 
dimensional array in Pascal is actually an: 
array|first index] of array[second index] ..... 

of array[n’th index] of whatever type; 
REPRESENTATION OF POINTERS 


Pointers always occupy four bytes. The nil pointer is 
represented by a value of zero (0). 
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E.7 PACKING METHODS 


Packed records are expensive in terms of the amount of 
generated code needed to reference a field of a packed 
record. In general, avoid packing records unless there are 
many more instances of a particular records than there are 
references to it. 


Components of a packed record are allocated in the order 
in which they appear. Components never cross word boun- 
daries. The allocator never backtracks to fill in holes in the 
structure. 


Within a word, components are allocated on bit boundaries. 
The allocation proceeds from the most significant end of 
the word towards the least significant end. If there is not 
enough room in the current word for a component, a hole 
is left in the current word, and the next word is started. 


After allocation, it is possible that the allocator might shift 
and expand fields in a word to utilize what would otherwise 
be holes.in the record. For example, a signed field might 
be expanded to use the remainder of a word for faster 
access, or two 5-bit fields might be allocated a full byte 
each. The diagrams below provide graphic illustrations of 
the packing:methods. In each case, a type definition is 
given, followed by a diagram of how that type is allocated. 
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packed record 
a: 0 .. 7; 
b: char, 
ec: 0... 3; 
d: Boolean; 
e: 0.. 3; 
end; 


bit-15 13 12 | Ss 4 3 


packed record 
a: 0 .. 4095; 
b: char; 
end; | 
bit—B15 ii 8 
bit— B15  @ 


packed record 
a: 0 .. 63; 
b: 0 .. 63; 
end; 


bit 315 18 9 43 
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The second above is allocated as in the above picture, but 
will be re-allocated as shown below. 


bit®15 1413 87 65 | | 


packed record 
a: -1024.. + 1023; 
b: 0.. 7; 
end; 
bit-315 | — . §4 32 Q 


frie fe 


In the last example above, the signed subrange field was 
moved up to the left hand end of the word and sign 
extended for faster access. 


Packed arrays are also code consuming, with one excep- — 
tion: packed array of char is treated as a a special case, and 
the generated code is compact. 


Elements of packed arrays are. stored with multiple values 
in a byte whenever more than one value can fit in a byte. 
Elements are allocated on 1, 2, 4 or 8-bit boundaries. This 
only happens when the value requires 4 bits or less. 3-bit 
values are stored in 4 bits. 
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The first value in a packed array is stored in the lowest 
numbered bit position of the lowest addressed (that is, the 
most significant) byte. Subsequent values are stored in the 
next available higher numbered bit positions in that byte. 
When the first byte is full, the same positions are used in 
the next higher addressed byte. Consider the following 
examples: 


var 
a: packed array/1 .. 12] of boolean; 


byte 1 | bit @ 


fees uruse s+ | ata] a] ase} ao 


var _ 
b: packed array[3 ..8] of 0 .. 3; 


byte 1 bit @ 
byte | 
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var 
c: packed array[0 .. 2] of 0 .. 7; 
or 


c: packed array[0 .. 2] of 0 .. 15; 


byte 1 bit @ 
eee 
byte 2 


E.8 PARAMETER PASSING MECH ANISM 


This Section describes the way in which parameters are 
passed in SVS Pascal. 


Parameters are passed on the stack. Parameters are pushed 
onto the stack in order in which they are declared in pro- 
cedure and function declarations. 


If the callee is not a procedure or function at the global 
level, the static link is the last thing pushed onto the stack 
before the routine is called. 
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Upon return from a routine, all parameters are discarded 
from the stack. Nothing should be on the stack upon 
return. 


var parameters (call by reference) always have a four-byte 
pointer to the variable pushed onto the stack. 


Value parameters are divided into the three categories of 
sets, doubles, and everything else. 


The caller always pushes sets onto the stack. A set which 
occupies one byte is pushed with a move.b instruction. A 
set which occupies more storage than one byte is pushed 
with the least significant element in the most significant 
word. Thus the representation of a set on the stack is the 
same as the representation in memory. . 


The caller always pushes doubles onto the stack as well. 
This is usually accomplished by two move.] instructions in 
such a manner that the representation a double on the 
stack is the same as the representation in memory (that is, 
with the sign bit in the lowest addressed byte). 


Other value parameters are pushed as follows: 


e a one-byte value is pushed with a move.b instruc- 
tion. 


e a two-byte value is pushed with a move.w instruc- 
tion. 


e a four-byte value is pushed with a move.| instruc- 
tion. | 


e if a value is longer than four bytes, and not a dou- 
ble, the address of the data is pushed onto the stack 
and the called procedure or function copies the data 
into local storage. 
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Procedure and function parameters are pushed as follows: 


e the address of the procedure or function is pushed 
onto the stack. 


e the static link is then pushed onto the stack if the 
procedure or function is not at the global (outer- 
most) level. If the procedure or function is global 
(at the outermost level), the value nil(0) is pushed 
onto the stack instead of the static link. 


Function results are returned in register DO, or in the case 
of a double function in DO and D1. 


E.9 REGISTER CONVENTIONS 


Registers AO, Al, DO, D1, and D2 are available as scratch 
registers. That is, they may be clobbered by a function or 
procedure. All other registers must be preserved across: 
calls. In addition, register A4 and A5 must contain their 
original values whenever any external routine is called. A4 
is used in addressing external entry points and A5 is used 
to access the standard input and output, arge and argv, 
ioresult, etc. 


E.10 LIMITATIONS ON SIZE OF VARIABLES 


There is no limitation on the number of bytes allocatable 
for variables. However, a maximum of 30K bytes of value 
parameters cannot be exceeded. Furthermore, when more 
than 30IX bytes of variables exist in either the main 
program’s global scope, or in any local scope of a procedure 
or function (but not unit globals), the largest values will be 
accessed via a pointer, resulting in somewhat slower code. 
This mechanism is transparent to the user, so that no 
changes to source code are required. 
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Global variables in units are accessed via 32-bit absolute 
addressing modes. Therefore the pointer mechanism does 
not apply to units with more than 30K bytes of globals. 


The maximum size of a record variable is 32K bytes. 


There is no limitation on the size of variables which can be 
allocated by the NEW procedure. 


E.11 COMPILER GENERATED LINKER NAMES 


This section describes the manner in which the Pascal com- 
piler generates names of local and global procedures so that 
the Linker can resolve external references at link time. 


Procedures which are global (or external) are given the 
names which the user assigns to them. The compiler con- 
verts all such names to upper case, and truncates them to 
eight characters in length. 


Procedures which are local (not visible in the global scope) 
are assigned names of the form: | 


$nnn 


where nnn is a decimal number. The numbers may possi- 
bly have trailing spaces. Procedures of the same name but 
in different scopes have different names. In other words, 
all local names in a given compilation unit are unique. 


When the linker or librarian sees a collection of compiled 
units, the local names may be renumbered, but the actual 
name that the user assigned to the procedures are carried 
along with the number. 
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APPENDIX F 
OPERATING THE SVS PASCAL SYSTEM 


This appendix will describe those characteristics of the SVS 
Pascal system which are similar among the various 
environments in which the system operates. The appen- 
dices that follow describe the implementation specific 
details of the Pascal system under your operating system. 
The information in this appendix describes the Pascal sys- 
tem in the form it is released by SVS. 


F.1 SYSTEM COMPONENTS 


In order to most effectively utilize the SVS Pascal system, 
it is necessary to understand the function and operation of 
its various components. In all environments a completely 
straight forward procedure is provided for compiling and 
executing simple Pascal programs (see Appendices G & 
H). The information provided here will only be necessary 
for more complicated situations involving separate compila- 
tion and multiple source languages. 


COMPILER FRONT END 


Pascal source programs (actually Pascal compilation units) 
are accepted by the compiler front end, syntax checked, 
and an intermediate representation of the program is writ- 
ten to a file. This file is passed to the code generator which 
generates object code. The input source program may 
include other files (see Section 9). In addition to the input 
source file, the Pascal compiler front end accepts certain 
directives from the command line, which are described in 
the Command Line Directives and Compiler Options sec- 
tion of this appendix. 


Input files to the Pascal front end generally are files with 
names which end in .pas. The output file from the Pascal 
compiler front end is an intermediate representation of the 
program which is placed in a file which generally ends in .i. 
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There is virtually nothing which can be done with this .i file 
except provide it as input to the code generator. 


CODE GENERATOR 


The code generator for the Pascal system accepts as input 
the .i file produced by the front end and generates linkable 
object code in a file with a name which generally ends in 
Obj. 


The same code generator is utilized in compiling SVS Pas- 
cal and SVS FORTRAN. 


LINKER 


In order to operate in a given host environment, the SVS 
Pascal system always includes a subsystem which creates 
object files which are in the format expected by the operat- 
ing system. On the S-32/S-320, this utility is a linker for 
.obj files as well as a formatter of object code. The 
language’s run time system is linked with the user’s pro- 
gram at the .obj level. On the PC AT, there is a compile 
by compile conversion of the object code to the form 
expected by the operating system. The language’s run time 
system is bound into user programs by the operating 
system’s linker. The remainder of this section and the fol- 
lowing section on libraries describe the linker form of the 
object code formatter. 


The ulinker and jlinker are utilities provided with SVS Pas- 
cal on the S-32/S-320 and PC AT, respectively. The 
ulinker links .obj files with each other, and also links run 
time libraries which are part of the language system. The 
jlinker formats .obj files into .o files. How the ulinker and 
jlinker operate is described in detail in Appendices G and 
H. However, general information which applies to both 
linkers is described in this section. 


The ulinker and jlinker accept .obj files as input. Output is 
produced as an object file. The linker’s output file is 
further linkable with object code generated by the operating 
system assembler, etc. Note that the ulinker may be run 
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only once per executable image while the jlinker must be 
run once for each .obj file. The input to both linkers must 
contain exactly one main program but may contain many 
object files derived from units. 


LIBRARIES 


On the S-32/S-320 object files in .obj format may or may 
not be libraries. The result of a run of the code generator 
is an .obj which is not a library, although it is possible that 
such a file contains object code which corresponds to many 
subroutines. The main difference between .obj files which 
are libraries and those which are not libraries is that the 
linker includes all of the object code from non-library input 
files, but only that object code which is referenced from 
library input files. The determination of what is referenced 
is made based on unresolved external code references in 


previous input files to the linker. Therefore the order that 


files are presented to the linker is important. 


When linking Pascal programs, the run time library pro- 
vided with the system, paslib.obj, must be the last input 
file to the linker. 


On the PC AT, the operating system linker binds separate 
compilation units and run time libraries, including the Pas- 
eal library. This library is generally called /usr/lib/libp.a and 
must be provided during the system linking phase of the 
compile. 


ERROR MESSAGES 


The Pascal system contains a file of compile time error 
messages. If this file is given the appropriate name, the 
compiler will generate English error messages along with 
error numbers. If not, the compiler will only give error 
numbers. 
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F.2 COMMAND LINE DIRECTIVES AND COMPILER 
OPTIONS | 


The Pascal compiler front end is invoked to compile a 
source file named prog.pas with a command line of the 
form: 


/u0/pascal/pascal prog.pas { options... } 


Any number of command line options may appear and they 
may appear in any order. The possible command line 
options are: 


+q -q Show more (-q) or less (+ q) information on 
the progress of the compile to the user. The 
default is + q for the S-32/S-320 and PC AT. 
+p -p Prompt (+p) or don’t prompt (-p) to the 
standard input in the case of a compile time 
error. Prompting mode is useful so that 


error messages do not fly off CRT screens © 


but is awkward when compiling in back- 
ground mode. The default is -p for the S- 
32/S-320 and PC AT. 


+f -f Generate code for the Sky floating point 
| hardware board (+f) or generate code for 
software floating point (-f). This option is 
only enabled in systems which have a Sky 
board and will result in an error if not 
installed. The default is -f for the S-32/S- 
320. The PC AT accepts only the -f option. 
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Note: If the Sky floating point hardware interface is to be 
used, the entre program must be compiled with the +f flag 
set and the resulting object code must be linked with 
sky.paslib.obj instead of paslib.obj. Programs compiled 
for the National Semiconductor Series 32000 always use the 
hardware floating point coprocessor. Therefore, the PC AT 
does not accept the +f option. 


-Ifname Create a listing file of the source program in the 
file named fname. 


-efname Place a summary of the compile time errors in 
the file named fname. 


-ifname Name the .i file fname. If this option is not pro- 
vided, the .i file when compiling a source pro- 
gram named prog.pas is named prog.i. 


-ofname Name the .obj file fname. If this option is not 
provided, the .obj file when compiling a source 
program named prog.pas is named _ prog.obj. 
This option applies only to the S-32/S-320. 


To invoke the code generator on the S-32/S-320, use the 
following command: a 


/u0/pascal/code prog.i { optionalfname } 
where leaving off the optional file name results in an output 
file named prog.obj. If the optional file name is provided, 


the output file is named optionalfname. 


To invoke the code generator on the PC AT, use the fol- 
lowing command: 


/u0/paseal/ncode prog.i 
See the appendices that follow for a description of com- 


mand line arguments and options related to the ulinker and 
jlinker. 
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F.3 LINKING PROGRAMS WHICH USE 
C AND FORTRAN 


There are certain rules which must be observed by pro- 
grammers wishing to combine object code compiled under 
more than one language processor. Throughout the follow- 
ing discussion, Pascal and FORTRAN refer to the SVS 
amplementations of these languages. 


WHAT LANGUAGE MUST SUPPLY THE 
MAIN PROGRAM 


In all cases in which FORTRAN code is present, the main 
program must be FORTRAN. In the case where Pascal 
and C are to be present, the main program must be Pascal. 


DYNAMIC MEMORY ALLOCATION AND 
DEALLOCATION 


A program may utilize the C library memory allocation and 
deallocation package (malloc, free, etc.) providing that Pas- 
cal components of the program do not call release. Simi- 
larly, Pascal components should not call release if FOR- 
TRAN components performing any I/O are present. On 
the S-32/S-320, C routines must not utilize any dynamic 
memory allocation or deallocation directly or through the 
operating system run time library. 


PARAMETER CONVENTIONS : 


Pascal contains a cexternal declaration (similar to Pascal 
external) which generates calls to C routines in which the 
parameters are popped off at the calling site after the sub- 
routine returns. The parameters must appear in reverse 
order in the Pascal call as compared to the order expected 
by C. 
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Calling C from Pascal 


The Pascal program should contain a cexternal declaration 
with all parameters four bytes in length (except floating 
point which should be double precision). Addresses may 
be passed by specifying the parameters to be var parame- 
ters. The following declaration in Pascal 


function cfunct(i,j: longint; d: double): longint; cexter- 
nal; 


can be used to eall the C function 


efunct(d,j,i) 
int i,j; 


double d; 


{ 
if (d == 0.0) return(i+ j); else return(i-j); 


No assembly language is necessary to link these routines. 


Note: On the PC AT the C system prepends underscores 
to external names and the Pascal declaration would have to 
be for a function named _cfunct rather than a function 
named cfunct. 


Calling Pascal from C 


There is no way to tell the C system that an external refer- 
ence is to a non C routine. Therefore, either the $E- 
option must be set in the compiled Pascal program, or the 
use of an assembly language wrapper to adjust the stack is 
possible. Using the types of the variables from the ‘previ- 
ous example, a C call of the form 


= pasfune( d,j,i); 
would require an assembly language wrapper of the form 


(shown here using 68000 assembly language for illustration, 
similar code can be written on the Series 32000) 
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text 
globl pasfunc 
-globl PASFUNC 
pasfune: | 
movl sp@+,savera 
js PASFUNC 
subl #16,sp 
movl  savera,sp@ - 
rts 
.bss 
savera:.=.+ 4 


to call a Pascal function declared with the header 
function pasfunct(i,j: longint; d: double): longint; 


The important items to note are: Pascal entry point is in 
upper case, C external reference is in the same case as the 
programmer specified. The .globl for the C entry point 
may need a prepended underscore on some operating sys- 
tems. The wrapper will not work if the interlanguage call is 
recursive. The C calling site expects to pop off 16 bytes of 
parameters after the call returns, but the Pascal function 
has already popped off the parameters. Therefore, the 
wrapper decrements the stack pointer by the amount the 
calling site expects to pop off. 


The exact syntax of the assembly language will vary from 
system to system. In general the object code for wrappers 
is linked into the executable program at the last linking step 
of the compile. Normally, a wrapper is required for each C 
to Pascal call unless the $E- compile option is used when 
compiling the Pascal program. 


The above procedure will not work with C systems other than 
SVS C' because other C systems expect called subroutines 
to preserve different registers than Pascal functions 
preserve. In this case, the wrapper must be enhanced to 
preserve the registers required by the calling C language 
subroutine. 
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Calling FORTRAN from Pascal 


It is straight forward to call FORTRAN subroutines from 
Pascal. The called routines should be declared to be exter- 
nal in the Pascal compilation with formal parameter 
declarations which match FORTRAN parameter conven- 
tions. In particular, Pascal var parameters will match the 
FORTRAN call by reference convention. 


If the receiving FORTRAN routine expects a character 
parameter, it will be necessary to pass the length of the 
packed array of char as an explicit four byte value parame- 
ter (as described in the parameter passing section of the 
FORTRAN reference manual). 


Note: Pascal strings are not compatible with the FOR- 
TRAN character datatype. 


Calling Pascal from FORTRAN 


When calling an external routine from FORTRAN, it is 
merely invoked without any special declaration. This called 
routine may have been written in Pascal. In the event that 
it is, the routine should be written with formal parameters 
declared in the manner which is consistent with what FOR- 
TRAN would expect from a receiving routine written in 
FORTRAN. Pascal formal parameter declarations are ada- 
quate for expressing all of the interfaces expected by FOR- 
TRAN calling sites. 


RUN TIME LIBRARIES 


When linking Pascal and Fortran languages, the last input 
file provided to the linker must always be paslib.obj for the 
S-32/S-320 or /usr/lib/libp.a for the PC AT. Immediately 
preceding paslib.obj must be ftnlib.obj, and immediately 
preceding /usr/lib/libp.a must be /usr/lib/libf.a). 
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UPPER AND LOWER CASE EXTERNAL NAMING 
CONVENTIONS 


It is the convention in Pascal and FORTRAN to upper 
case all external names ezcept routine names which are 
declared cexternal in Pascal. These names are passed 
directly to the linker as they appeared in the cexternal 
declaration. In C, upper and lower case letters are distinct, 
so it is the convention to pass letters directly through as 
they were supplied by the programmer. For interfacing 
purposes, use upper case names in C, or use cexternal in 
Pascal, or use assembly language to bridge the naming 


conventions. 
f 


PREPENDED UNDERSCORE TO EXTERNAL NAMES 


On the PC AT, the underscore character is prepended to C 
external names. Pascal cexternal names do not get under- 
score prepended to them in any environment, but Pascal 
accepts underscore as a letter so that the user may generate 
Pascal cexternals with leading underscores. 
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UNIX SPECIFIC INFORMATION 


Although the SVS Pascal system appears to be almost 
identical under a wide variety of operating systems, there 
are minor differences, particularly related to the linker and 
in operating procedures, among the various environments. 
This appendix will provide the implementation dependent 
details related to SVS Pascal running under the UNIX 
operating system. 


G.1 COMPILING A SIMPLE PROGRAM 


The instructions provided here for compiling and linking a 
Pascal program reflect the system as it is released by SVS. 
Some vendors of the system provide additional utilities for 
sequencing compiles for which there may be separate docu- 
mentation. 


Appendix F of this manual described in some detail the 
components of the SVS Pascal system. For most Pascal 
programs, the following simple procedure will be com- 
pletely adequate for sequencing a compile: 


Create a shellscript called Pascal with the following com- 
mands: 


set -e 

pascal $1.pas 

code $1.i 

ulinker -] $1.0 $1.o0bj oaslib. obj 
cc $1.0 

mv a.out $1 

rm $1.0 $1.obj 
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To compile a Pascal program in a file named prog.pas, exe- 
cute: . 


Pascal prog 


The Pascal program and the shellscript can be created 
using the system text editor. The mode of the shell script 
should include execute permission (i.e. chmod + rwx Pas- 
cal). The shellscript assumes that pascal (the Pascal com- 
piler front end), code (the code generator), and ulinker 
(the linker) reside in the system in directories from which 
they can be executed. The shellscript also assumes that 
paslib.obj is the correct pathname for accessing this file. 
These names will most likely have to be changed to reflect 
the location of these files on your system. 


The lines of the shellscript do the following: The set -e 
causes the compiling sequence to terminate after an error is 
detected. The next lines run the front end and code gen- 
erator on files whose names are derived from the command 
line in which the shellscript is invoked. The linker is run 
(in its simplest form, see below for more details) with -l 
inhibiting a linkmap listing file, with output file $1.0, and 
with two input files, including the SVS supplied library. 
Ulinker produces a file which is then linked to those UNIX 
system calls which are utilized by the program in the ce step 
(which invokes the UNIX system linker). The final two 
lines rename the executable program and remove the 
unlinked object code files. 


G.2 ERROR MESSAGE FILE 


SVS Pascal includes a file called pascterrs which should be 
placed in either the /lib or /usr/lib directory. This will 
allow the compiler to display English messages for errors 
which it detects. 
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G.3 ULINKER 


Under UNIX, ulinker is the SVS linker. The general 
operation of the linker is described in Appendix F. This 
section will describe in detail the modes of operation of 
ulinker and its load map listing option. 


ULINKER INPUTS 


Ulinker links object code in .obj format, including libraries. 
In addition, ulinker accepts input from the command line 
or interactively as described below. 


ULINKER OUTPUTS 


Ulinker creates partially linked object code in UNIX .o for- 
mat as its primary output. Optionally, ulinker can produce 
a listing file which is a load map of global entry points in 
the created .o file. The form of this map and information 
contained in it is best described by the following example 
with subsequent explanations: 


Example of Ulinker Listing File 


Linking segment ’ ’ (670) 
MC68000 Unix Object Code Formatter 22-Aug-83 


File: prog.o 


3 


Memory map for segment ’ 


COMPUTES - COMPUTES 00001E 
FAIRLYSI- FAIRLYSI 000054 
$START -$START 000054 
SP830701 - %P830701 000082 

% TERM - %TERM 0001E0 
%END -% END 0001E2 

% VERS - %VERS 0001E6 

STI MUL4 -%_MUL4 0001EC 
SI_MOD4 -%_MOD4  00021C 
SI_DIV4 -%_DIV4 000228 
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No: Segment: Size: 
0.’ ’ 00029E 


Start Loc = 000054 
Code Size = 00029E 
Global Size = 000006 


Explanation of Ulinker Listing File 


The listing file was generated from the following Pascal 
program: | 


program fairlysimple; 
var 1: integer; li: longint; 


procedure computesome; 
begin 

li := (li * li) mod 99999; 
li :== li div 17; 

end; 


begin 

ea 

for i:= 1 to 100 do 
computesome; 

end. 


The segment named by 8 blanks had 670 (decimal) bytes in 
it. Under UNIX there is no reason for programmers to 
explicitly deal with segments, since ulinker handles this 
automatically. 


There were ten entry points in the linked files. Eight of 
these were pulled out of the library and two are recogniz- 
able as user function names. The addresses of these entry 
points are given in hex and are text area relative, but will be 
further relocated by the cc step of the compilation. The relative 
addresses (distance between them) will remain intact 
through the cc step. 
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There would be a data areas shown associated with each of 
the units in the link, mapped to the data or bss area 
depending upon whether the area is initialized at compile 
time (which is possible using FORTRAN block data and 
named common). Sizes and locations of these data area 
listings are in hex and relative to the start of the data or bss 
area as appropriate. 


RUNNING ULINKER FROM THE COMMAND LINE 


The command line form of running ulinker is: 


ulinker listfname outputfname inputfname { inputfname ..} 


where the optional listing file is created on a file named 
listfname providing that listfname is not equal to -1 (no list- 
ing file to be created directive). The command line argu- 
ments are positional. No file name suffixes are enforced by 
ulinker in this mode so complete file names must be 
entered. 


RUNNING ULINKER INTERACTIVELY 


It is often not convenient or not possible to have a com- 
mand line which is long enough to have all of the input 
files listed. In this event, ulinker can be run interactive. 
Execute ulinker without any command line arguments and 
it prompts: _ 


Listing file - 
Any file name provided creates the listing file. Enter just 
return to suppress the optional listing file. The next 


prompt is: 


Output file [.o] - 
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Ulinker requires an output file. If the file name provided 
does not end in .o, ulinker will append this file name exten- 
sion onto the name which is input. Following this prompt, 
ulinker will repeatedly prompt: 


Input file |.obj] - 


for its input files, until a plain return is typed, indicating 
that the input file list is completed. Ulinker will append the 
.obj suffix onto input file names if it is not supplied by. the 
user. Running in this mode, there is no limit on the 
number of input files which ulinker can process. 


RUNNING ULINKER WITH STANDARD INPUT 
REDIRECTED 


With many input files, it is most convenient to operate 
ulinker in its interactive mode with standard input 
redirected. For example, run ulinker as follows: 


ulinker <emd 


where the file cmd contains a line for the listing file name, 
a line for the output file name, lines for the input file 
names, and a blank line to terminate the input file list. 


Symbol Table Information Placed in Output File 


Utilizing the UNIX utility nm it is possible to examine the 
symbol table information placed in the output file by 
ulinker. In general, all entry points which are not local to 
another procedure (a situation which only occurs in Pascal) 
are placed into the .o file symbol table. All entry points 
appear in the ulinker listing file, including those which are 
Pascal local procedures. There are also symbol table entries 
for unresolved external references and for the program 
entry point (named _main under UNIX). 
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TREATMENT OF UNRESOLVED EXTERNAL 
REFERENCES 


Unresolved external references are passed through into the 
output file for potential linking in the ce step of the com- 
pile. In the event that these references are not resolved at 
that stage, an error message is generated then. 


SEGMENTS 


Under some operating systems other than UNIX, the SVS 
Pascal system contains a meaningful object code concept 
referred to as segments. Under UNIX, there are segments 
in the object code, but they are not semantically meaning- 
ful. Ulinker automatically creates segments as needed and 
there is no reason for the user to do anything explicitly 
about creating and/or naming segments. | 


ERRORS DETECTED BY ULINKER 


Most of the error messages which come out of ulinker are 
completely self explanatory. The error message: 


4k In data area named ABC 
ek at offset 999 bytes into that data area 
**# Fatal Error - overlapping data initialization 


is caused by user programs initializing the same location in 
the named data area more than once. The error message: 


4% Hrror - Double defined: ABC 
is caused by the same entry point name being used in more 


than one input file. Only 8 characters are significant for the 
linker. The error message: 
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*kk Hrror - Double defined unit 


is caused by linking more than one unit with the same 
name. The link name for Pascal units begins and ends in 
slashes and contains the six initial characters of the Pascal 
unit user name between the slashes. This facilitates initial- 
izing Pascal unit globals using FORTRAN named common 
and data statements. One consequence of this link naming 
convention is that only six characters of the user unit name 
are utilized for resolving naming conflicts. The error mes- 
sage: 


*kk Hrror - Multiple start locations 


is caused by having more than one main program among 
the input files. 


G.4 LINKING TO UNIX ASSEMBLY CODE 


It is normal for the output of ulinker to contain unresolved 
external references to UNIX system calls (such as _open, 
_close, and _write). These are resolved by the cc linking 
step by using the operating system default library of UNIX 
object code. The user may do the same kind of linking to 
UNIX assembly code by providing the assembly language 
source as an additional argument to the cc compilation step 
which will automatically invoke the operating system 
assembler. 


One limitation on code which is linked in with code gen- 
erated by the SVS languages is that no UNIX system calls 
on malloc, free, sbrk, or related routines (directly, or 
through other linked in routines) may be used. The SVS 
languages handle the UNIX break area of memory, includ- 
ing versions of malloc and free in the SVS C library, in a 
manner which is not fully compatible with the UNIX rou- 
tines. 
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Users should also beware of differing floating point for- 
mats. Some of the UNIX systems do not use IEEE format 
floating point. In this event, passing floating point values 
will result in strange results. 


It is not guaranteed that I/O will work as expected across 
language boundaries, particularly with respect to object 
code generated by non SVS systems. 


Any code linked into programs generated by the SVS 
languages must obey the register and calling conventions 
assumed by the system. In particular, all called routines 
must preserve registers D3 through D7 and A2 through 
A6. More details on the calling conventions are provided 
in the appendix on data representations. 


G.5 ARGC AND ARGV 


Under UNIX, the name of the program is the first argu- 
ment in the argv list of the invoked program, that is 
argv[1]*. Arge is always at least 1. The first user supplied 
command line argument is argv[2]*. This is sometimes 
confusing for UNIX programmers who are more used to 
seeing the name of the invoked program as the zero’th 
argv in the C programming language and the first user sup- 
plied command line argument as the one referenced using 
array index 1 on the argv array. The Pascal numbering 
scheme is consistent with the fact that argv is a one origin 
indexed array. 


G.6 FEATURES NOT IMPLEMENTED UNDER UNIX 


The following features of SVS Pascal are not implemented 
under UNIX: call, unit I/O (such as unitread, unitwrite, 
etc.), and memavail (not implemented under most UNIX 
implementations). 
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G.7 RETURN VALUES FROM PASCAL PROGRAMS 


A Pascal program can issue the call: 
halt(integervalue) 


to generate a UNIX system termination code equal to the 
value specified. If a zero value is provided, UNIX will con- 
sider that the program succeeded, otherwise UNIX will 
treat the process as having terminated with an error. This 
is useful for interacting with shellscripts which test the 
UNIX error flag after executing programs written in Pascal. 


G-10 3/10/86 


APPENDIX G 
UNIX SPECIFIC INFORMATION 
(S-32/S-320) 


Although the SVS Pascal system appears to be almost 
identical under a wide variety of operating systems, there 
are minor differences, particularly related to the linker and 
in operating procedures, among the various environments. 
This appendix will provide the implementation dependent 
details related to SVS Pascal running under the UNIX 
operating system. Note that the information in this appen- 
dix applies only to the S-32/S-320, for related information 
on the PC AT, see Appendix H. . 


G.1 COMPILING A SIMPLE PROGRAM 


The instructions provided here for compiling and linking a 
Pascal program reflect the system as it is released by SVS. 


Appendix F of this manual describes the components of the 
SVS Pascal system. For most Pascal programs, the fol- 
lowing simple procedure will be completely adequate for 
sequencing a compile: 


Create a shellscript called Pascal with the following com- 
mands: 


set -e 

/u0/pascal/pascal $1.pas 

/u0/paseal/code $1.1 

/u0/pascal/ulinker -1 $1.0 $1.obj paslib.obj 
ec $1.0 -o $1 

rm $1.0 $1.obj 
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To compile a Pascal program in a file named prog.pas, exe- 
cute: | 


Pascal prog 


The Pascal program and the shellscript can be created 
using the system text editor. The mode of the shell script 
should include execute permission (i.e., chmod +rwx Pas- 
cal). 


The lines of the shellscript do the following: The set -e 
causes the compiling sequence to terminate after an error is 
detected. The next lines run the front end and code gen- 
erator on files whose names are derived from the command 
line in which the shellscript is invoked. The linker is run 
(in its simplest form, see below for more details) with -1 
inhibiting a linkmap listing file, with output file $1.0, and 
with two input files, including the SVS supplied library. 
Ulinker produces a file which is then linked to those UNIX 
system calls which are utilized by the program in the cc step 
(which invokes the UNIX system linker). The final two 
lines rename the executable program and remove the 
unlinked object code files. 


G.2 ERROR MESSAGE FILE 


SVS Pascal includes a file called pascterrs which is in the 
/usr/lib directory. This will allow the compiler to display 
English messages for errors which it detects. 


G.3 ULINKER 


Under UNIX, ulinker is the SVS linker. The general 
operation of the linker is described in Appendix F. This 
section will describe in detail the modes of operation of 
ulinker and its load map listing option. 
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ULINKER INPUTS 


Ulinker links object code in .obj format, including libraries. 
In addition, ulinker accepts input from the command line 
or interactively as described below. 


ULINKER OUTPUTS 


Ulinker creates partially linked object code in UNIX .o for- 
mat as its primary output. Optionally, ulinker can produce 
a listing file which is a load map of global entry points in 
the created .o file. The form of this map and information 
contained in it is best described by the following example 
with subsequent explanations: 


Example of Ulinker Listing File 


Linking segment ’ ’ (670) | 
MC68000 Unix Object Code Formatter 22-Aug-83 
File: prog.o 


9 


Memory map for segment ’ 


COMPUTES - COMPUTES 00001E 
FAIRLYSI- FAIRLYSI 000054 
$START -$START 000054 
SP830701 - %P830701 000082 
%_TERM - %_TERM 0001E0 
% END - %_END 0001E2 

% VERS - %_VERS 0001E6 
%1MUL4 - %I_MUL4 0001EC 
%I_MOD4 - %I_.MOD4 00021C 
%1_DIV4 - %IDIV4 000228 


No: Segment: Size: 
0.’ * 00029E 


Start Loe = 000054 


Code Size = 00029E 
Global Size = 000006 
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Explanation of Ulinker Listing File 


The listing file was generated from the following Pascal 
program: | 


program fairlysimple; 
var i: integer; li: longint; 


procedure computesome; 
begin 

li := (li * li) mod 99999; 
li :== li div 17; 

end; 


begin 

liao 

for i:== 1 to 100 do 
computesome; 


end. 


The segment named by eight blanks had 670 (decimal) 
bytes in it. Under UNIX there is no reason for program- 
mers to explicitly deal with segments, since ulinker handles | 
this automatically. | 


There were ten entry points in the linked files. Eight of 
these were pulled out’ of the library and two are recogniz- 
able as user function names. The addresses of these entry 
points are given in hex and are text area relative, but will be 
further relocated by the cc step of the compilation. The relative 
addresses (distance between them) will remain intact 
through the cc step. : 


There would be one data area per block data and named 
common. Sizes and locations of these data area listings are 
in hex and relative to the start of the data or bss area as 
appropriate. 
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RUNNING ULINKER FROM THE COMMAND LINE 


The command line form of running ulinker is: 


ulinker listfhame outputfname inputfname { inputfname ... } 


where the optional listing file is created on a file named 
listfname providing that listfname is not equal to -1 (no list- 
ing file to be created directive). The command line argu- 
ments are positional. No file name suffixes are enforced by 
ulinker in this mode so complete file names must be 
entered. 


RUNNING ULINKER INTERACTIVELY 


It is often not convenient or not possible to have a com- 
mand line which is long enough to have all of the input 
files listed. In this event, ulinker can be run interactive. 
Execute ulinker without any command line arguments and 
it prompts: 


Listing file - 


Any file name provided creates the listing file. Enter just 
return to suppress the optional listing file. The next 
prom pt is: 


Output file [.o] - 


Ulinker requires an output file. If the file name provided 
does not end in .o, ulinker will append this file name exten- 
sion onto the name which is input. Following this prompt, 
ulinker will repeatedly prompt: 


Input file |.objj - 


for its input files, until a plain return is typed, indicating 
that the input file list is completed. Ulinker will append the 
.obj suffix onto input file names if it is not supplied by the 
user. Running in this mode, there is no limit on the 
number of input files which ulinker can process. 
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RUNNING ULINKER WITH STANDARD INPUT 
REDIRECTED 


With many input files, it is most convenient to operate 
ulinker in its interactive mode with standard input 
redirected. For example, run ulinker as follows: 


ulinker <emd 


where the file cmd contains a line for the listing file name, 
a line for the output file name, lines for the input file 
names, and a blank line to terminate the input file list. 


SYMBOL TABLE INFORMATION PLACED IN OUT- 
PUT FILE 


Utilizing the UNIX utility nm it is possible to examine the 
symbol table information placed in the output file by 
ulinker. In general, all entry points which are not local to 
another procedure (a situation which only occurs in Pascal) 
are placed into the .o file symbol table. All entry points 
appear in the ulinker listing file, including those which are 
Pascal local procedures. There are also symbol table entries 
for unresolved external references and for the program 
entry point (named _main under UNIX). 


TREATMENT OF UNRESOLVED EXTERNAL 
REFERENCES 


Unresolved external references are passed through into the 
output file for potential linking in the cc step of the com- 
pile. In the event that these references are not resolved at 
that stage, an error message is generated then. 
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SEGMENTS 


Under some operating systems other than UNIX, the SVS 
Pascal system contains a meaningful object code concept 
referred to as segments. Under UNIX, there are segments 
in the object code, but they are not semantically meaning- 
ful. Ulinker automatically creates segments as needed and 
there is no reason for the user to do anything explicitly 
about creating and/or naming segments. 


ERRORS DETECTED BY ULINKER 


Most of the error messages which come out of ulinker are 
completely self explanatory. The error message: 


*kk In data area named ABC 
«ek at offset 999 bytes into that data area 
kk Fatal Error - overlapping data initialization 


is caused by user programs initializing the same location in 
the named data area more than once. The error message 


*kk Hrror - Double defined: ABC 


is caused by the same entry point name being used in more 
than one input file. Only 8 characters are significant for the 
linker. The error message 


*&k Error - Double defined unit 


is caused by linking more than one unit with the same 
name. The link name for Pascal units begins and ends in 
slashes and contains the six initial characters of the Pascal 
unit user name between the slashes. This facilitates initial- 
izing Pascal unit globals using FORTRAN named common 
and data statements. One consequence of this link naming 
convention is that only six characters of the user unit name 
are utilized for resolving naming conflicts. The error mes- 
sage 
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kkk Hrror - Multiple start locations 


is caused by having more than one main program among 
the input files. 


G.4 LINKING TO UNIX ASSEMBLY CODE 


It is normal for the output of ulinker to contain unresolved 
external references to UNIX system calls (such as _open, 
_close, and _write). These are resolved by the ce linking 
step by using the operating system default library of UNIX 
object code. The user may do the same kind of linking to 
UNIX assembly code by providing the assembly language 
source as an additional argument to the cc compilation step 
which will automatically invoke the operating system 
assem bler. 


One limitation on code which is linked in with code gen- 
erated by the SVS languages is that no UNIX system calls 
on malloc, free, sbrk, or related routines (directly, or 
through other linked in routines) may be used. 


It is not guaranteed that I/O will work as expected across 
language boundaries, particularly with respect to object 
code generated by non SVS systems. 


Any code linked into programs generated by the SVS 
languages must obey the register and calling conventions 
assumed by the system. In particular, all called routines 
must preserve registers D3 through D7 and A2 through 
A6. More details on the calling conventions are provided 
in the appendix on data representations. 
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G.5 ARGC AND ARGV 


Under UNIX, the name of the program is the first argu- 
ment in the argv list of the invoked program, that is 
argv[1]*. Arge is always at least 1. The first user supplied 
command line argument is argv[2]*. This is sometimes 
confusing for UNIX programmers who are more used to 
seeing the name of the invoked program as the zero’th 
argv in the C programming language and the first user sup- 
plied command line argument as the one referenced using 
array index 1 on the argv array. The Pascal numbering 
scheme is consistent with the fact that argv is a one origin 
indexed array. 


G.6 FEATURES NOT IMPLEMENTED UNDER UNIX 


The following features of SVS Pascal are not implemented 
under UNIX: call, unit I/O (such as unitread, unitwrite, 
etc.), and memavail. 


G.7 RETURN VALUES FROM PASCAL PROGRAMS 


A Pascal program can issue the call: 
halt(integervalue) 


to generate a UNIX system termination code equal to the 
value specified. If a zero value is provided, UNIX will con- 
sider that the program succeeded, otherwise UNIX will 
treat the process as having terminated with an error. This 
is useful for interacting with shellscripts which test the 
UNIX error flag after executing programs written in Pascal. 
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APPENDIX H 
UNLX SPECIFIC INFORMATION 
(PC AT) 


Although the SVS Pascal system appears to be almost 
identical under a wide variety of operating systems, there 
are minor differences, particularly related to the linker and 
in operating procedures, among the various environments. 
This appendix will provide the implementation dependent 
details related to SVS Pascal running under the UNIX 
operating system. Note that the information in this appen- 
dix applies only to the PC AT, for related information on 
the S-32/S-320, see Appendex G. 


H.1 COMPILING A SIMPLE PROGRAM 


The instructions provided here for compiling and linking a 
Pascal program reflect the system as it is released by SVS. 


Appendix F of this manual described in some detail the 
components of the SVS Pascal system. For most Pascal 
programs, the following simple procedure will be com- 
pletely adequate for sequencing a compile: 


Create a shellscript called Pascal with the following com- 
mands: 

set -e | 
/u0/pascal/pascal $1.pas 
/u0/pascal/neode $1.i 
/u0/pascal/jlinker $1 
ce $1.0 -o $1 -Ip 
rm $1.0 $1.obj 
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To compile a Pascal program in a file named prog.pas, exe- 
cute: 


Pascal prog 


The Pascal program and the shellscript can be created 
using the system text editor. The mode of the shell script 
should include execute permission (i.e., chmod +rwx Pas- 
eal). 


The lines of the shellscript do the following: The set -e 
causes the compiling sequence to terminate after an error is 
detected. The next lines run the front end and code gen- 
erator on files whose names are derived from the command 
line in which the shellscript is invoked. The linker is run 
(in its simplest form) with just the base name of the pro- 
gram, $1. The linker appends a ”.obj” to the base name and 
uses it as an input file. The jlinker produces a file which is 
input to cc. The default output file is $1.0. The last line 
removes the unlinked object code files. 


H.2 ERROR MESSAGE FILE 


SVS Pascal includes a file called pascterrs which is in the 
/usr/lib directory. This will allow the compiler to display 
English messages for errors which it detects. 


H.3 JLINKER 


Jlinker is the SVS linker. The general operation of the 
linker is described in Appendix F. This section will 
describe in detail the modes of operation of jlinker and its 
load map listing option. | 
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JLINKER INPUTS — 


Jlinker formats .obj files into object code in UNIX .o for- 
mat. In addition, jlinker accepts input from the command 
line or interactively as described below. 


JLINKER OUTPUTS 


Jlinker creates partially linked object code in UNIX .o for- 
mat as its primary output. Optionally, jlinker can produce a 
listing file which is a load map of global entry points in the 
created .o file. The form of this map and information con- 
tained in it is best described by the following example with 
subsequent explanations: 


Example of Jlinker Listing File 


NS32000 Object Code Formatter 10-Mar-86 | 
File: maplist.o 
Memory map: 


000000 COMPUTESOME 
-00002C FAIRLYSIMPLE 
00002C $START 


Data Areas: 


000008 (common) //GLOBALS// 
000064 (common)  //regs// 


Code Size = 000058 


Data Size = 000000 
BSS Size = 000000 
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Explanation of Jlinker Listing File 


The listing file was generated from the following Pascal 
program: 3 


program fairlysimple; 
var i: integer; li: longint; 


procedure computesome; 
begin = 

li := (li * li) mod 99999; — 
li :== li div 17; 


end; 
begin 
1h tees, DF 
for i:= 1 to 100 do 
computesome; 
end. 


There were three entry points in the file. Two of these are 
recognizable as user function names. The addresses of 
these entry points are text area relative, but further relo- 
cated by the ce step of the compilation. The relative 
addresses (distance between them) will remain intact 
through the cc step. 


There would be one data area per unit shown in the link. 
Each unit is mapped to the data or bss area depending upon 
whether the area is initialized at compile time. Sizes and 
locations of these data area listings are in hex and relative 
to the start of the data or bss area as appropriate. 
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RUNNING JLINKER FROM THE COMMAND LINE 


The command line form of running jlinker is: 


jlinker -llistfname inputfname 


where listfile is the name of the map list file. The inputfile 
name can be either the base name or the complete file 
name (test.obj or test). 


RUNNING JLINKER INTERACTIVELY 


The jlinker can be run interactive. Execute jlinker without 
any command line arguments and it prompts: 


Listing file - 


Any file name provided creates the listing file. Enter just 
return to suppress the optional listing file. The next 
prompt is: 


Output file [.o] - 


Jlinker requires an output file. If the file name provided 
does not end in .o, jlinker will append this file name exten- 
sion onto the name which is input. Following this prompt, 
jlinker will prompt: 


Input file [.obj] - 


for the input file. Jlinker will append the .obj suffix onto 
the input file name if it is not supplied by the user. 
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SYMBOL TABLE INFORMATION PLACED 
IN OUTPUT FILE 


Utilizing the UNIX utility nm it is possible to examine the 
symbol table information placed in the output file by 
jlinker. In general, all entry points which are not local to 
another procedure (a situation which only occurs in Pascal) 
are placed into the .o file symbol table. All entry points 
appear in the jlinker listing file, including those which are 
Pascal local procedures. There are also symbol table entries 
for unresolved external references and for the program 
entry point (named _main under UNIX). 


TREATMENT OF UNRES OLVED EXTERNAL 
REFERENCES 


Unresolved external references are passed through into the 
output file for potential linking in the cc step of the com- 
pile. In the event that these references are not resolved at 
that stage, an error message is generated then. ) 


ERRORS DETECTED BY JLINKER 


Most of the error messages which come out of jlinker are 
completely self explanatory. The error message: 


*kk In data area named ABC 
«kk at offset 999 bytes into that data area 
*kk Fatal Error - overlapping data initialization 


is caused by user programs initializing the same location in 
the named data area more than once. 


H.4 LINKING TO UNIX ASSEMBLY CODE 


It is normal for the output of jlinker to contain unresolved 
external references to UNIX system calls (such as _open, 
_close, and _write). These are resolved by the cc linking 
step by using the operating system default library of UNIX 
object code. The user may do the same kind of linking to 
UNIX assembly code by providing the assembly language 
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source as an additional argument to the ce compilation step 
which will automatically invoke the operating system 
assembler. 


One limitation on code which is linked in with code gen- 
erated by the SVS languages is that no UNIX system calls 
on malloc, free, sbrk, or related routines (directly, or 
through other linked in routines) may be used. 


It is not guaranteed that I/O will work as expected across 
language boundaries, particularly with respect to object 
code generated by non SVS systems. 


Any code linked into programs generated by the SVS 
languages must obey the register and calling conventions 
assumed by the system. In particular, all called routines 
must preserve registers D3 through D7 and A2 through 
A6. More details on the calling conventions are provided 
in the appendix on data representations. 


H.5 ARGC AND ARGV 


Under UNIX, the name of the program is the first argu- 
ment in the argv list of the invoked program, that is 
argv[1]*. Arge is always at least 1. The first user supplied 
command line argument is argv[2]*. This is sometimes 
confusing for UNIX programmers who are more used to 
seeing the name of the invoked program as the zero’th 
argv in the C programming language and the first user sup- 
plied command line argument as the one referenced using 
array index 1 on the argv array. The Pascal numbering 
scheme is consistent with the fact that argv is a one origin 


indexed array. 


H.6 FEATURES NOT IMPLEMENTED UNDER UNIX 
The following features of SVS Pascal are not implemented 


under UNIX: call, unit I/O (such as unitread, unitwrite, 
etc.), and memavail. 7 
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H.7 RETURN VALUES FROM PASCAL PROGRAMS 


A Pascal program can issue the call: 
halt(integervalue) 


to generate a UNIX system termination code equal to the 
value specified. If a zero value is provided, UNIX will con- 
sider that the program succeeded, otherwise UNIX will 
treat the process as having terminated with an error. This 
is useful for interacting with shellscripts which test the 
UNIX error flag after executing programs written in Pascal. 
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ABS, 8-12 
access to command line 
ARGC, 7-12 
ARGV, 7-12 
accessing variables, 3-4 
adding operators, 4-5 
address evaluation operator, 4-2 
allocate storage, 8-8 
ARCTAN, 8-13 
ARGC, 7-12, G-9, H-8 
ARGV, 7-12, G-9, H-8 
arithmetic functions 
ARCTAN, 8-13 
COS, 8-12 
LN, 8-13 
PWROFTEN, 8-13 
SIN, 8-12 | 
SQR, 8-12 
SORT, 8-13 
arithmetic operations on extreme values, E-8 
arithmetric functions, 8-13 
array 
types, 2-8 
examples, 2-9 
representation of pointers, E-11 
assembly code 
linking to UNIX(PC AT), H-7 
linking to UNIX(S-32/S8-320), G-8 
assignment compatible types, 2-18 
assignment statements, 5-1 
attributes 
external, 7-16 
forward, 7-16 
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basic symbols, 1-15 
BEGIN .. END compound statements, 5-4 
block input output intrinsics, 6-16 
BLOCKREAD, 6-16 
BLOCKWRITE, 6-17 
boolean attributes see predicates 
boolean element, 6-12 
buffer variable, 2-14 
REWRITE, 6-5 
REWRITE, 6-5 


C and Fortran, F-6 
call another program, 8-22 
CALL, 8-22 
case statements, 9-6 
character element, 6-12 
CHR, 8-16 
close a file, 6-14 
CLOSE, 6-14 
code generation errors, A-9 
code generator, F-2 
code systems linker, F-2 
command line 
directives, F-4 
running jlinker, H-5 
running ulinker, G-5 
comment toggle, 9-1 
comments, 1-18 
comparison of booleans, 4-9 
comparison of scalars, 4-8 
complete program, 7-2 
compilation units 
insecure separate compilation, 7-3 
simple unit, 7-4 
using a unit, 7-5 
compile time > 
constant expressions, 4-13 
lexical errors, A-1 
options, 9-1 | 
semantic errors, A-3 
syntactic errors, A-1 
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compiler front end, F-1 
compiler generated linker names, E-19 
compiler options, F-4 
complete program compilation, 7-2 
component variables, 3-5 
compound statements, BEGIN .. END, 5-4 
compute absolute value, 8-12 
compute exponential of value, 8-13 
compute square of a number, 8-12 
compute ten to a power, 8-13 
CONCAT concatenate strings, 8-4 
constant definition, 7-13 
constants | 

literal, 2-1 

predefined, 2-2 
control procedures 

CALL, 8-22 

EXIT, 8-21 

HALT, 8-22 
conventions for spaces, 1-18 
convert integer to pointer, 8-20 
convert to long integer, 8-16 
convert type to integer value, 8-15 
copy a substring, 8-3 | 
COPY, 8-3 
COS, 8-12 


data representations 
arrays, E-11 
compiler generated linker names, E-19 
extreme numbers, E-5 
hexadecimal, E-7 
integers, E-3 
limitations on variable size, E-18 
packing methods, E-12 
parameter passing mechanism, E-16 
pointers, E-11 
reals and doubles, E-4 
register conventions, E-18 
sets, E-17 
arithmetic operations, E-8 
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data types, 2-1, 2-5 
dead code elimination, 4-13 
declarations 
procedure and function, 7-14 
constant definition, 7-13 
label, 7-13 
type definition, 7-13 
variable, 7-13 
scope of identifiers, 7-9 
declaring variables, 3-1 
declaring variables, examples, 3-1 
delete characters from string, 8-6 
DELETE, 8-6 
determine 
end of file, 8-14 
end of line, 8-14 
memory, 8-12 
size of an element, 8-20 
string length, 8-2 
successor of value, 8-17 
deviations from IEEE standard, E-7 
direct pointer comparison, 4-9 
DISPOSE, 8-10 
dispose of allocated storage, 8-10 
double element, 6-10 
dynamic memory 
allocation, F-6 
deallocation, F-6 
dynamic variables, lifetime of, 3-3 


element 

boolean, 6-12 

integer, 6-10 

string, 6-12 
elementary lexical contructs, 1-10 
elements 

character, 6-12 

double, 6-10 

real, 6-10 

scalar subrange, 6-11 
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EOF, 8-14 
EOLN, 8-14 
error message file 
S-32/S-320, G-2 
PC AT, H-2 
error messages 
code generation, A-9 
compile time 
lexical, A-1 
semantic, A-3 
syntactic, A-1 
input output, A-8 
IORESULT, A-9 
specific limitions of compiler, A-7 
errors 
detected by jlinker, H-6 
detected by ulinker, G-7 
establishing variables, 3-2 
evaluation in expressions, 4-12 
exit from procedure, 8-21 
EXIT, 8-21 
EXP, 8-13 
external attributes, 7-16 
external naming conventions, F-10 
extreme numbers 
arithmetic operations, E-8 
deviations from IEEE standard, E-7 
hexadecimal representations, E-7 
representation of, E-5 
extreme values, arithmetic operations on, E-8 


features not implemented UNIX(S-32/S-320), G-9 
field indentifiers, 2-11 

file buffer variable, 6-1 

file handling procedures, 6-1 

file types, 2-14 

fill a storage region, 8-19 

FILLCHAR, 8-19 

FOR .. DO statements, 5-9 

formal parameters, 3-3 

forward attributes, 7-16 
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GET procedure, 2-14, 6-3 
global variables, 3-3 
GOTO statement, 5-12 


HALT, 8-22 
handling procedures 
CLOSE, 6-14 
PAGE, 6-16 
SEEK, 6-14 
hexadecimal 
output, 6-13 
representation of selected numbers, E-7 


identifiers, declarations and scope, 7-9 
IEEE standard, deviations from, E-7 
IF .. THEN .. ELSE statements, 5-4 
indentical types, 2-17 

indentifiers, predefined, B-1 

input output errors, A-8 

inputs jlinker, H-2 

inputs ulinker, G-3 

insecure separate compilation, 7-3 
insert characters into string, 8-7 
INSERT, 8-7 

integer element, 6-10 

integer to character representation, 8-16 
integers, representation of, E-3 
IORESULT, 6-18 

ISNIN, 8-14 

ISO pascal, C-1 


jlinker 
errors detected by, H-6 
unresolved external references, H-6 
inputs, H-3 | 
outputs, H-3 


Pascal 
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label declaration, 7-13 
LENGTH, 8-2 
libraries, run time, F-9 
libraries, F-3 
lifetime of 
dynamic variables, 3-3 
formal parameters, 3-3 
variables, 3-3 
limitations — 
of compiler, A-7 
variable size, E-18 
linker, F-2 
linking programs 
C and Fortran, F-6 
dynamic memory 
allocation, F-6 
deallocation, F-6 
external naming conventions, F-10 
language, F-6 
main program, F-6 
parameter conventions, F-6 
prepended underscore, F-10 
run time libraries, F-9 
linking to UNIX 
assembly code, G-8 
LN, 8-13 
lowlevel routines 
FILLCHAR, 8-19 
MOVELEFT, 8-17 
MOVERIGHT, 8-17 
POINTER, 8-20 
SIZEOF, 8-20 


mark position of heap, 8-11 
MARK, 8-11 
MEMAVAIL, 8-12 
metalanguage, 1-8 
MOVELEFT, 8-17 
MOVERIGHT, 8-17 
multiplying operators, 4-3 
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natural logarithm of value, 8-13 
NEW procedure, 2-15 

NEW, 8-8 

non-comparable types, 4-11 
NOT operator, 4-3 


ODD, 8-14 
operators 
adding, 4-5 
address evaluation, 4-2 
examples, 4-2 
in expressions, 4-2 
multiplying, 4-3 
NOT, 4-3 
relational, 4-7 
sign, 4-6 
ORD, 8-15 
ORD4, 8-16 
ordinal type, 2-5 
out of range values, 4-11 
outputs, jlinker, H-3 
outputs, ulinker, G-3 


packed arrays 
of char, 6-12 
packing methods, E-14 
packing methods, E-12 
PAGE, 6-16 
parameter conventions 
calling C from Pascal, F-7 
calling FORTRAN from Pascal, F-9 
calling Pascal from C, F-7 
calling Pascal from FORTRAN, F-9 
parameter passing mechanism, E-16 
parameters 
WRITE, 6-9 | 
procedures and functions, 7-17 
Paseal indentifiers, 1-11 
Pascal labels 1-15 
Pascal programs 
PC AT, H-8 
S-32/S-320, G-9 
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Pascal reserved words, 1-16 
Pascal special symbols, 1-16 
Pascal standards, C-1 
Pascal strings, 1-13 
Pascal syntax definitions, B-2 
PC AT 
ARGC, H-8 
ARGV, H-8 
error message file, H-2 
features not implemented under UNIX, H-8 
linking to UNIX assembly code, H-7 
return values from pascal programs, H-8 
pascal program, compiling, H-1 
pointer output, 6-13 
pointer referenced variables, 3-9 
pointer types, 2-19 
pointer types examples, 2-16 
POINTER, 8-20 
POS match a substring in a string, 8-4 
predeclared variables 
input, 7-11 
output, 7-11 
stderr, 7-11 
predicates 
ISINF, 8-14 
ISNIN, 8-14 
ISNUM, 8-14 
ODD, 8-14 
prepended underscore, F-10 
procedure and function 
parameters, 7-17 
declaration, 7-14 
procedure reference statement, 5-3 
procedures 
GET, 6-3 
PUT, 6-3 
READ intrinsics, 6-6 
READLN intrinsics, 6-6 
RESET, 6-4 
REWRITE, 6-5 
WRITE, 6-8 
WRITELN, 6-8 
text file handling, 6-6 
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program heading, 7-11 
PUT procedure, 2-14, 6-3 
PWROFTEN, 8-13 


random access to typed files, 6-14 
read block from file, 6-16 
READ intrinsics, 6-6 
READLN intrinsics, 6-6 
real element, 6-10 
reals and doubles, representation of, E-4 
record types, 2-11 
record types, examples, 2-12 
redirected standard input, ulinker, G-6 
register conventions, E-18 
relational operators, 4-7 
release allocated memory, 8-11 
RELEASE, 8-11 
REPEAT .. UNTIL statements, 5-8 
representation of arrays, E-11 
representation of pointers, E-11 
representation of sets, F-11 
RESET buffering option, 6-5 
RESET procedure, 6-4 
return input-output result, 6-18 
REWRITE 
buffering option, 6-5 
procedure, 6-5 
round to nearest integer, 8-15 
ROUND, 8-15 | 
run time libraries, F-9 
running jlinker 
from command line, H-5 
interactively, H-5 
running ulinker 
from command line, G-5 
interactively, G-5 
redirected standard input, G-6 
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S-32 /S-320 
error message file, G-2 
Pascal program 
compiling, G-1 
return values, G-9 
scalar subrange element, 6-11 
scalar 
types, 2-95 
examples, 2-6 
scan for character, 8-5 
SCANEQ, 8-5 
SCANNE, 8-5 
scope of statement labels, 5-1 
SEEK, 6-14 
segments, ulinker, G-7 
set comparison, 4-10 
set types, 2-13 
sign operators, 4-6 
simple types, 2-5 
simple unit, example, 7-4 
SIN, 8-12 


size of variable, limitations, E-18 


SIZEOF, 8-20 

skip to new page, 6-16 
SOR, 8-12 

SORT, 8-13 

square root of value, 8-13 


standard functions, SUCC, 8-17 


standard types, 2-3 
statement labels, 5-1 
statement labels, scope of, 5-1 
statements 
assignment, 9-1 
procedure reference, 5-3 
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storage allocation procedures 
DISPOSE, 8-10 
MARK, 8-11 
MEMAVAIL, 8-12 
NEW, 8-8 
RELEASE, 8-11 
storage allocation, E-1 
string comparison, 4-9 
string element of char, 6-12 
string manipulation facilities 
CONCAT, 8-4 
COPY, 8-3 
DELETE, 8-6 
INSERT, 8-7 
LENGTH, 8-2 
POS, 8-4 
SCANEQ, 8-5 
SCANNE, 8-5 
string types, 2-10 
string variable, 2-10 
structured statements 
BEGIN .. END, 5-4 
FOR .. DO statements, 5-9 
GOTO, 5-12 
IF .. THEN .. ELSE, 5-4 
REPEAT .. UNTIL, 5-8 
WHILE .. DO, 5-7 
WITH, 5-11 
structured types, 2-7 
subrange types, 2-6 
SUCC, 8-17 
SVS Pascal 
differences from UCSD Pascal, D-1 
similarities to UCSD Pascal, D-1 
syntactic constructs, 1-8 
syntax definitions, B-2 
system components 
code generator, F-2 
compiler front end, F-1 
error messages, F-3 
libraries, F-3 
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tag field, 2-11 
terminate program with return value, 8-22 
test integer for odd or even, 8-14 
text file handling procedures, 6-6 
trigonometric 
arctangent, 8-13 
cosine, 8-12 
sine, 8-12 
TRUNC, 8-15 
truncate to nearest integer, 8-15 
type . 
declarations,-d 
definition, 7-13 
indentity, 2-17 
types 
array, 2-8 
assignment compatible, 2-18 
file, 2-14 
indentical, 2-17 
non-comparable, 4-11 
pointer, 2-15 
record, 2-11 
scalar, 2-5 
set, 2-13 
simple, 2-5 
standard, 2-3 
string, 2-10 
structured, 2-7 
subrange, 2-6 
data, 2-5 
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UCSD Pascal 
differences from SVS Pascal, D-1 
similarities to SVS Pascal, D-1 
ulinker 
ARGC, G-9 
ARGV, G-9 
errors detected, G-7 
inputs, G-3 
segments, G-7 
unresolved external references, G-7 
inputs, G-3 
UNIX 
error message file 
S-32/S-320, G-2 
PC AT, H-2 
assembly code linking to, G-8 
compiling pascal program 
S-32/S-320, G-1 
PC AT, H-1 
features not implemented under 
S-32/S-20, G-9 
PC AT, H-8 
jlinker, H-3 
ulinker, G-3 
unresolved external references 
jlinker, H-6 
ulinker, G-7 


value conversion functions 
CHR, 8-16 
ORD, 8-15 
ORD 4, 8-16 
ROUND, 8-15 
TRUNG, 8-1 

variable 
file buffer, 6-1 
buffer, 2-14 
declaration, 7-13 
string, 2-10 
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variables 
input, 3-2 
output, 3-2 
predeclared, 3-2 
predeclared, 7-11 
stderr, 3-2 
accessing, 3-4 
arge, 3-2 
argv, 3-2 
component, 3-95 
entire, 3-5 
global, 3-3 
lifetime of, 3-3 
pointer referenced, 3-9 
referencing, 3-4 
variant record, 2-11 
WHILE .. DO statements, 5-7 
WITH statement, 5-11 
WRITE 
parameters, 6-9 
intrinsics, 6-8 
write block to file, 6-17 
WRITELN intrinsics, 6-8 
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